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ACORN NIEUWS is een vigave van de Fed, Acorn computerclubs n/b 
verschijnt 6 - 8 keer per jaar. 

De redaktie gaat er vanuit, dat ingezonden copij afkomstig is van de inzender, 
tenzij uitdrukkelijk is vermeld. 
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publicatie afkomstig is. 
De aansprakelìjkheid voor auteursrechten voor ingezonden copy ligt dus bij de 
inzender . 
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DE PRINTEN. 


De schakelkaart is vanaf eind april wederom leverbaar. Voor de minischake!lkaart 
en de epromprogranmerkaart geldt leverbaar zolang de voorraad strekt, 


ADRESWIJZIGINGEN: 


Adreswijzigingen dienen rechtstreeks schriftelijk gestuurd te worden aan SIMON 
VAN LEEUWEN de ledenadeinistrateur. 


VOORPLAATJE 


Het plaatje op de voorkant is deze keer afkomstig uit het programms Pie-chart 
voor qags. 


INHOUD REGIO-SCHIJF NR, 3 


SHELDBS 2908 AFAF BIGAS 202 A.N. 1985 nr. 3 bìz. @ 
BOX 2904 AFAF BB2CP AIF A.N. 1985 nr. 5 biz. 95 
SCRBACK B200 C282 @693 BIC A‚N. 1985 nr. 3 blz. 16 
TELETAB 8298 C2B2 @OIEP B23 A‚N. 1985 nr. 3 blz. 21 
PIE-CHA 2908 AFAF d219B 027 A.N. 1985 nr. 3 blz, 22 
MENU-{ 2980 AFAF 8219B 849 A‚N, 1985 nr. 5 blz. 30 
MENU-2 2982 AFAF BOSB2 DEB A‚N, 1985 nr. 3 blz. 30 
DRUM-S1 2980 AFAF GB168F B&F A‚N, 1985 or. 3 biz. 38 
DRUM-V1 ABU AZIE T1208 ZB6 A.N. 1985 nr. 3 biz, Zi 
ANALYSE 2728 AFAF DBBI5 B96 A.N. 1985 nr. 3 blz. 38 
TORTRAC 29008 AFAF @@304 BA2 A‚N, 1985 nr. 3 blz. 38 
SCHSOFT 2998 AFAF BB94A DAG A.N. 1985 nr. 5 blz. 46 
SCREENR ADO@ ABO PIPE OBO A‚N. 1985 nr. 3 blz. SO 
INMAKER 2908 AFAF JO7BA BCO A‚N. 1985 nr. 3 biz. SA 
PLANTAR 2908 CEB6 @534F BCB A‚N. 1985 nr. 3 blz. bó 
DISKCAT 2908 AFAF 8O4D9 11C A‚N. 1985 nr. 35 blz. 70 
PCAT2 29@8 AFAF QA3I8 123 A‚N. 1985 nr. 3 blz. 78 
PCAT1 2908 AFAF G@1B8 127 A.N. 1985 nr. 3 blz. 79 
DFCAT 8208 AFAF BB7EA 129 A‚N. 1985 nr. 5 blz. 78 
PC-SORT 8206 AFAF B@2FC 131 A‚N. 1985 nr. 3 biz. 78 
NECDUMP 2980 AFAF @26F@ 134 A‚N. 1985 nr. 3 blz. 82 
DIKTEE 2988 AFAF DBGED IJE A‚N. 1985 nr, 3 blz. 91 
VERTAAL 2908 AFAF @4520 142 A‚.N. 1985 nr, 3 blz, 92 
ELISE 2908 AFAF G@5DA 148 A.N, 1985 nr. 3 blz. 95 
zee 6STÒ Z6ES AP2A8 14E A‚N, 1985 nr. 3 blz. 62 
301 &5CG 36ES @L208 158 A.N. 1985 ar, 3 blz. 62 
DATOMIX 2988 AFAF O089B 152 A.N. 1985 nr. 3 blz. 6 
BASICOD 2908 AFAF BIGF9 15B is nog geen beschrijving van. 


WIEPA HOEFA ' Ut 


In tegenstelling met eerdere berichten, het IC 9245, 25 in een vernieuwde versie 
reeds In ons bezit. De catwikkeling van de B8-koloms-taart gast nu in volle 
nevigheid verder. 
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18 APR 1985 TWENTE MEFA-GEBOUW. 
28.00 VUR WIERDENSESTRAAT 4D ALMELO. 


11 APR 1985 NOOFD MUNSTERHOES 
19.58 UUR MUSTERHEERD. GRONINGEN. 


11 APR 1985 CENTRUM DE LANTAERN 
20.08 UUR UTRECHTSESTRAATWEG 4 NIEUWEGEIN. 


15 APR 1985 NOORD-H DE KOPEREN KNOOP 
12.88 UUR VAN LIMBURG STIRUM STRAAT AMSTERDAM. 


1& APR 1985 BRABANT DE WERFF 
20.55 UUR V/D WERFFSTRAAT EINDHOVEN. 


17 APR 1985 NOORD M van VLISSINGEN 
ACHTER DE GROTE KERK 25 LEEUWARDEN. 


20 APR 1985 BELGIE OGXACO-CAPENBERGCENTER 
18.30 UUR BORSBEEKSE STEENWEG 45, BOECHOUT (BIJ HDVE) 


2á APR 1985 DEN HAAB EXODUSKERK 
29.08 UUR BERESTEINLAAN 245 DEN HAAG. 


2 MEI 1985 BRABANT GEBOUW B‚R.A.N. 
28.58 UUR HEUVEL 7 VORSTENBOSCH. 


6 MEI 1985 ARNHEM T.0. POSTGIRO 
28.008 UUR VELPERWEG 56-A (kelder) ARNHEM 
8 MEI 1985 TWENTE MEPA-GEBDUW, 


20.88 VUR WIERDENSESTRAAT 40 ALMELO. 


B MEI 1985 CENTRUM DE LANTAERN 
28.00 UUR UTRECHTSESTRAATWEG 4 NIEUWEGEIN. 


9 MEI 1985 NOORD DE TREF-KOEL 
19,55 UUR _ ZONNELAAN. GRONINGEN, 


Ii MEI 1985 NOORD-H DE KOPEREN KNODP 
12.69 UUR VAN LIMBURG STIRUM STRAAT AMSTERDAM, 


15 MEI 1985 NOORD M van VLISSINGEN 
ACHTER DE GROTE KERK 25 LEEUWARDEN, 


21 MEI 1985 BRABANT DE WERFF 
20.58 VUR V/D WERFFSTRAAT EINDHOVEN. 


Zi MEI 1985 DEN HAAG EXODUSKERK 
20.88 UUR BERESTEINLAAN 263 DEN HAAG. 


Regio's, die hier niet vermeld staan, hebben geen opgaven 
naar de redactie gestuurd. 
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POCUMENTATIE ATOM MERGE 


Algemeen 
= Met dit programma is het mogelijk om 2 programaa's samen te voegen 


(aergen). 
= De mogelijkheid bestaat ook voor 2 bestanden mits het regelnumeer als 


recordkey gebruikt wordt. 
= Als enigste toolbox wordt de 'P-CHARME' gebruikt 


Programmawerking 

= Het progranaa vraagt om de adressen van de samen te voegen programma's of 
bestanden. Optioneel is het ingeven van een bepaalde serie regelnumaers 
die met het tweede programma (af een serie regelnumsers daarvan) 
sabengevoegd dienen te worden, Men kan ook volstaan met het ingeven van 
"ER. 

- Als in de samen te voegen programma's dezeltde regelnumsers voorkomen 
wordt een error 408 gegenereerd en is het programma alleen nog met ‘ESC 
at te breken. 

- Het statement ‘END’, al of niet met spaties en/of afgekort, moet zich als 
enigste statement op ge laatste regel van het programma bevinden. 

= Tevens dient men er zelf op te letten dat voor alle programma’s 
tatoa-merge, A en B) of programma en bestanden voldoende geheugenruimte 


beschikbaar is. 


Pragrataavar iabelen 
= Voor ‘prografima A” Ei programma adres 
adrespointer regelnuamer 
regelnuaser 
einde progransa indikator 
statement 
regelnumaer va 
regelnumter tot en met 
programma adres 
adrespointer regelnummer 
regeinumaer 
einde pragrarta indikator 
statement 
regelnummer van 
$T = regeinuamer tot en met 
- Voor ‘nieuwe pragramma’ : K prograasa adres 
L = adrespointer regelnummer 
SN = statement 
= Algemeen :$2 = \nputvarzabele 


un 


- Voor ‘programma B’ 





Listing 
1@ PROGRAM ATOM-MERGE 
28 PEN AUTEUR 
18 REN H‚ LINSSEN 
48 REN ROERMOND 
50 PEN 04750-27579 
68 FEM VERSIE 1.8 B18984 
72 FEN TOOLBDX:P-CHARME 
ea 
9 PROC FOOTNOTE 
18& IF I/t C=2R4254+R?1 
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110 
124 
150 
148 
158 
168 
170 
189 
198 
200 
z18 
220 
238 
240 
258 
260 


480 


IF JAI X=IWEE5EENPL 
VTABIS 
P.C ux 

PEND 


PROC COPY-D 

FOOTNOTE 

D=B+2 

IF C=VALG [=l 

IF $D=" E.“ OR $D=" END" OR $D="E." OR $D="END" F=l 
IF f=t IF J=8 GOTO 280 
21=?B 
L?1=B?1 
N= +2 
SN=$D 
L=L+LEN(N) +35 
B=BeLEN(D) +3 

PEND 






PROC COPY-Y 
FOOTNOTE 
v=dt2 
IF X=VALT J=l 
IF $v=" E‚" OR SY=" END" DR $Y= 
IF J=1 IF I=8 GOTO 429 
2L=?W 
L21=W?1 
N=L+2 
SN=$Y 
L=L+LEN EN) +3 
W=BtLEN(Y) +5 
PEND 





‚" OR $Y="END" J=1 


PROC ERROR 

VTAB 14 

P.$7 

P."ERROR 488 "' 

P.C “x* EQUAL LINE NUMBERS" 
PEND 


REM init 
DIM Z1,F4,64,54,T4 





IN. "“ADDRESS PROGRAM A: "A 

IN. “FROM LINE-NUMEER s "S$F;IF $F="" $F="0" 
IN.” TO LINE-NUMBER : “$6;IF $G="" $G="99999" 
IN. “ADDRESS PROGRAM B: “V 
IN."FROM LINE-NUMBER ; “$5;IF $S= 
IN.“ TO LINE-NUMBER : "$T;IF $T= 
IN. ““DESTINATION ADDRESS: "Kk 
IN." OKAY N/CCR'"$Z 









u gSetgr 





IF &Z="N" GOTO 520 

P.$12; ?8EL=D 

Pp. ATOM-MERGE" 

P. "ze =: " 
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830 K=rWe25be wi 
718 P‚''"“MERBE DF PROGRAM AT #"&A _ _ …. 8 
20 pe AND PROGRAM AT «tv: gaa Ir KALS Vasa L ENV 50, 050 
. rt et ERR 
zap.” To NEU PROGRAM AT "&k sao EE, 
B7B IF X<C;COFY-Y 
7 Sen ERE BBB IF F=1;DO COPY-YSUNTIL J=1;6. 910 
898 IF J=t;DO COPY-D:UNTIL 1=1:6. 910 
718 WaeVti 
900 GOTO a 
7ao 2K=+aD 7 
910 LAFF 
zoe Lekt 920 ?E1=128 
BAB VTAB 14;P. "BEGIN MERGE” Gi ET enor 
B1DaC=?B2256+B?1 doe ED 
828 IF CXVALF D-B+24B=B4LEND+2;G. a 
PAG. 8 ACORN NIEUWS Z'N EERSTE PRINTER R. VEENSTRA 








DE PRINTER 












1 “miero” 
r- 


en Printer oP 
vr eenz wat meer 





heb aanaezlote 
tellen. 









Een Prachtin inztr 


lijk in de 
maatschapPii niet ik r 


duz 25 Mi 
de kap 












Tien Sulden iz werkelijk niet veel voor zo'n Prachti3 m 
arek.belizwaar doet een lettertje het nietsnamelijk de Z.Dat 
maakt niet zoweel uitshet is nog best. te lezen,nietwaart 
Rlz er dan maar niet meer gaat haperen dan iz het niet zu 
2e18.. 






Ee: 
@l 





Yeldtaaid daal heb je het al,de L van lotzooi iz witde- 
wallen.Nu iz dat niet zo elgwant daal gebluik ik Seuson de 
L maal wool.Je kunt toch ook wel een beetje chinezs le 
Jacket iz welkeltk n senden Plachtia inzt lui 
bezitten.Het aat 1 viuggel dan zahlidwern, 












He,dat iz niet zo leuk,daal doet de G wan Golunmbuz het nok 
niet meel.Ik moet het t tel toah maal eenz nakijk 

zo gaat tet.....wel weldultene,daal 3aat de T 
Tis zit muulvast.Ik besum Calweel ven) toat te selo 
deze maStime miet zo bezt iz. 























Il moezt tet de tamdelaal maal z vlagen. Il bezim ma boat 
te geloven dat il bedlosem bem. want. bef meaimt taat te 
els te wolden. Tet iz velzohtlillllelad niel 





zu je zelf miet meel bummen lezem wat 


Em dobt toef: je mbtuwallisk Seem Plimtel vaat be larem. 
Won lun je met zA led mat de tub zattiiven dbt Vil iz 
"iet te lezem, 
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SHELOBS ARM 


Onder het matto: “You've read the book, seen the motion picture,...now play the 
game!", volgt hier de lancering van een spel, gebaseerd op een hoofdstuk uit het 
fantastische boek ‘In de ban van de ring’ deor J.J.R. Tolkien. 

Dit boek beschrijft de reis van Frodo en zijn reisgenoten door het imaginaire 
tand Midden-Aarde naar het donkere land Mordor om daar de ring, met bijzondere 
krachten, in het vuur te goeien waarin het gesmeed is, am zodoende de zwarte 
kracht van een onguur persoon genaamd Sauren, te vernietigen. 

Shelobs Army ís een spel wat zeer luchtig gebaseerd is op het verhaal wat 
beschreven is in hoofdstuk 9, vierde beek, deel 2. 

Dit hoofdstuk beschrijft de moeizame tocht door de lange gang die bewaakt wordt 
door de grote spin Shelob. In dit spel wordt Shetob voorgesteld door een aantat 
spinnen die de verschillende gangen bewaken 

Noodzakelijk voor dit spel zijn: 

= GAGS V2.0E 

— een joystick 


Wanneer men vanuit de startpositie Frodo naar boven wil geleiden moet eerst de 
ring gebruikt worden. Dit kan d.m.v. het indrukken van de fire-button en een 
apwaartse beweging van de joystick. 
D.m.v. de ring is het nu ook mogelijk om door de muren naar een andere gang te 
lopen. Elke stap naar boven levert 5 punten op doch elke stap naar beneden kost 
de een punt, Horizontale bewegingen van Frodo (fire-button indrukken niet 
noodzakelijk) kost- of levert geen punten, 
Eenmaal vanuit de startpositie vertrokken zal de energie van de ring afnemen, 
Als deze 8 is, ben je ten dode opgeschreven 
Let op: eenmaal in een gang aanwezig, zal de spin ruiken dat je er bent en op je 
af komen, dus maak dat je wegkomt, 
Genoeg gepraat...spelen! 

18 REM ////////// SHELGB'S ARMY AAAAAAAAAAAA 

20 REM / GEBASEERD OP ‘LORD OF THE RINGS' \ 

30 REM / EEN TRILOGIE DOOR J.J.R. TOLKIEN \ 

48 REM NODIG: GAGS-V2, 0E 


50 REM JOYSTICK 
68 REM AUTEUR: GERRIT HILLEBRAND 
78 


88 RASE((TOP/256)+2);G0S. ij REN initiate sprites 
30 DIM TU15) RRC) 


118 GUS.o;REM information text 
120 We 
150 E=50;U=8; 520; C=0 
148 GOS.d;REM draw screen 
158 SET:FRODO, 125,38 





178 REM MAIN LOOP 

188 I=-t 

199 DO 

208 I=ltiiEFI=631=0jv=0 

218 POS(10+1),P,Z31F P+RRI>229;RRI=-RRI; SHOVE (HBI) „RRI, GGC 
220 IF P4+RRUIJSIDRRI=-RRI; SHOVE (1841) „RRI,G 

238c SHOVE (1041) ,RRI,O 

248 POS:FRODO,X,Y 

258 IF Y 
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268 ATHIT:FRODO, (1410); GOS, h 
278 IF ABS(Y-Z)CBj Usb; RRI=UR((PHD (PKN 
288 IF V;6,t 

298 IF Y>40;60S.e 

308 C=2;H2B;JOYSTK H‚H,Z 

318 IF 1=8;6.9 

328 Veri 

338 IF Y=38;IF HS>B;IF H21;G.g 
340 IF Kz=l;IFZ>0;SHOVE:FRODO,B,&; 5=5+5; 605. 5; 6.0 
356 IF MB) IFZOB3SHOVE: FRODO, @,-6;5=6-1; 005,5 
348g IF G=856,f 

378 Vezel 

388 IF G=1jIF X+U>22%;6, f 

398 IF X-U<103B.f 

488 SHOVE:FRODD, ((Gzileb- (BOI #6) „B 
418fU.N=0 OR E=O 

428 FOR I=t TO 6 

438 SOUND (I#18),200 

449 MODE 1 

850 PAUSE 18 

460 NEXT 

478 CLS 

480 @=4 

698 P.''''*“YOUR SCORE WAS "5' 
508 IF S>WzW=5 

518 P,“HIGH SCORE "W” 

520 P‚,"“PRESS KEY TU PLAY " 

530 LINKRFFES;G. 130 

548 END 

558 
S4ONIMAGE: FRODO, (190+28#(N-1)),18 
570 N=N-1 

588 CARRY: FRODD, 120, 38 

598 INV 

688 F.J=40T080 

619 SOUND J,38 

628 NEXT 

638 INV 

648 GOS. 1 

658 RETURN 

648 

67BeE=E-| 

588 BLOCKZ, (11450-E),12,1,18 
698 RETURN 

7a0 

71OEREM DRAW MESSAGES 

728 J=B;B2BRLEN(T) —1 

738 FOR I=X TO X+B STEP B 

748 IMAGE (T?J) ‚1, (Y+&) 

758 JeJt1 

768 NEXT IT 

718 RETURN 

Taa 
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79IOsREM UPDATE SCORE 
a29 GOS.r;C=S 
818rJ=(C41000A) /1650+48 
820 K=(C{1900) /100+48 
838 L=(CX100)/10+48 

640 M=C210+48 

858 IMAGE J,158,18 

B&O IMAGE K‚148,18 

878 IMAGE L‚158,18 

898 IMAGE M,‚168,16 














898 RETURN 

908 

GIGiDEF FRODO,GBLOOED 1111110008 
928 DEF: GAABA1LLILI1L10G 
938 DEF: 29081131 11500110 
940 DEF: O2401 16811110811 
950 DEF: BOBI111111118D11 
JéB 11411110111 10081 
978 G2D1108111000881 
980 DEF: 299091 1112950400 


990 ASSIEN FRODO, 16 
1000 FOR!=18 TO 15 

L@1G CREATE: SPIDER, #9B,NB5,N7F,7,15,#15,#24, HCC, N19, HAL, HEE, HEG, MFO, HAB, W24,033/A: 
1820 NEXT 1 

1930 CREATE SPACE,0,8,0,0,8,0,0,9,0,0,4,0,2,0,8,0/A:CH" * 

1040 CREATE ZERD,O,#70,#BB, RCB, HAB, #98, #08, #70,0,0,2,0,9,0,0,0/A: 48 

1058 CREATE ONE,O,#70,#20,#20,#20,420,#60,#20,0,0,0,0,0,8,8,0/A:CH"1” 

1060 CREATE TWO,D,#FB,#80,#80,#70,#08,4BB,#70,D, 0,0, D,0,D,0,B/A:CH"2" 

1070 CREATE THREE,O,070,#8B, #08, #30, #08, #88,#70,0,0,0,9,9,9,0,B/A:CH" 5" 

1098 CREATE FOUR,B,#1D,#LD,#FB,#9B,#50,#30,#19,0,0,8,0,8,B,0,D/A:CHT4” 














’ 
1890 CREATE FIVE,0,#70,#88, 408, #08, #FO, HBO, #FB,B,0,0,0,2, 9,2, A/A:CHPST 
1190 CREATE 51%,D,47D,#BB,#BB, FD, #88, #40,#30,0,9,0,3,0,0,0,8/A:CH"6" 
1118 CREATE SEVEN,8,#80,#80,#40,#20,#10,#08,#F8,0,2,0,0,0,0,0,2/4: 
1128 CREATE EIGHT,O,#70,#88,#88,N7D, #59, #88,#70,0,0,0,0,0,3,0,0/A 
1138 CREATE NINE,A, #60, #10, #08, #78, #88, #88,#70,0,0,0,8,9,2,8,0/A:CH" 9" 
1148 CREATE COLON,G,@,#68,#68,D,N62,#6D,0,2,8,0,2,9,2,0,B/A:CHP:" 
1158 CREATE A,0,#88,#08, #88, #FG,HB8,KB0, #78,0,8,0,2,3,0,0,B/A1CH"A" 
1168 CREATE B,0,FU,N4B,N4B,#70,N48,#4B,4F3,0,0,9,0,0,0,2,0/A:CH" B" 
1178 CREATE C,0,#79, #08, #00,#08, #88, #08,#78,9,8,0,9,0, 0,0, B/A: CH°C* 
1180 CREATE E,8,4FB,#00,N00, HFD, NBG, HAA, #FB,D,3,0,0,9, 0,0, B/A:CH"E" 
1198 CREATE H‚3,408,#00,#88,HFG,#B8,#B0,#88,0,3,0,9,3,0,2,0/A:CH*H* 
1208 CREATE L‚0,9FB,#80, #00, HBO, HBO, #B8,#A9,0,0,0,4,9,9,9,0/A:CH 
1212 CREATE M‚0,#08, 488, #88, #A8,#A8,#DB,#88,0,0,0,9,0,0,0,A/A: CH*M* 
1220 CREATE 0,0,#70,#88,#08,#08,488,N80,#70,0,0,0,0,0,8,0,B/A:CH*O" 
1239 CREATE R‚2,#B8,#I0,HAG, HFD, #88, 488, #FQ,0,0,0,D,9,0,8,0/A: CH 
1248 CREATE 5,0,#70,#08,#08,470,#80,#B8,#79,0,0,9,2,9,0,0,0/A:CH"S" 
1250 CREATE Y,B,#20,#22,#20,#50, #88, #BB,#B8,0,D,0,2,0,9,0,8/A:CH*V" 
12460 CPEATE QUOTE, 0,0,9,0,0,0,#49,#40,0,0,9,3,0,0,9,2/A:CH""* 
1228 CREATE/P:} #44, RIE #44 HIL, MAA, HII, RAA, HIT 


128% RETURN 

1298 

1300SCLEAR4 

1319 BARDERD,O 

1320 FOR I=1 TO 6:CUBE1,@,9, (444(1-1)#22) „235, 1B; NEXT 
1320 CUBEL,B,4,4, 247,24; CUBE1,B,4,40,247,134 

1349 $T="SHELDB'S ARMY";X=88; V=178;GD5. t 
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1368 
3378 
1380 
1398 


GOS, 1 

FOR 1944670164 5. 20;PAINT B,L,5; PAINTIAB, SI, iiN, 
INV 

6AS.r 


1408 BLOCK 2,6,6,243,28 

lata FOR I=8 TO 2; 1MAGE:FRDDO, (19042041) ,1EINEXT 1 
1428 N=3 

1438 FOR 5=8 TO 5; X=ABSRND/100 

1440 SET (10+), (1284X), (22414551; IF KCOMRR(I =-UiG.n 
1850 RR(I=U 

14&BNNEKT 

1378 RETURN 

1480 


149BHUNSET: FRODO; 5=5+50; GOS, 5 


1544 
1510 
1524 
1530 


SET: FRODO, 125, 38zU=U+23 FG 16} ei 
BLOCK@,10,8,54,16;605.1 
RETURN 


15401E=50 


1559 
1568 
1570 


CUBEI,O,18,8,54,16; BLOCK!,12,12,50, 10 
RETURN 


158BoREM UIT: TOLKIEN LEXICON — J.E,A. TYLER 


1594 
1488 
1618 
1620 
1638 
1648 
1658 
1660 
1678 
1680 
1698 
1702 
1718 
1728 
1738 
1740 
1750 
1768 
1778 
1788 
1790 
+658 
1818 
1828 
1658 
1880 
1850 
1858 
1874 
18582 


REM: BESCHRIJVING SHELOB'S LEGER 
CLS 


P."stelobs leger" 
P. "HET HOL VAN DE GROTE SPIN SHELOB"'"HET WAS EEN GROT VAN ENORME * 


P. “AFMETINGEN, DOOR MIDDEL VAN GANGEN EN TUNNELS MET ANDERE GROTTEN" 

P. "VERBONDEN EN HIJ LAG VLAK ONDER DE 7OP VAN DE PAS VAN CIRITH” “UNGOL * 
P."AAN DE WESTZIJDE, DE WEG DOVER DE PAS WAS DP DIT PUNT DOURHARDE ” 

P."ROTS GEGRAVEN EN REIZIGERSWAREN DIENTENGEVOLGE GEDWONGEN" 

P."DE BUITENSTE GANGEN VAN HET" "LEGER VAN DE SPIN (TDRECH UNGDLOTE" 

P. "GEBRUIKEN OP HUN WEG. "” 

LINKAFFES 

ELS 

P.“iN DIT SPEL BENT U DE HOOFD PER-SDON UIT HET EPOS -IN DE BAN VANDE RING-" 
P.*“ GENAAMD FROOO. OM DOOR DE GANGEN VAN SHELOB TE KOMEN“ “MOET U MET BEHULP" 
P.” VAN EEN*'"JOYSTICK FRODO BESTUREN. NAAR LINKS EN * 

P. "RECHTS GEEFT GEEN ENER-GIE VERLIES" 

P‚“ DOCH NAAR BOVEN EN BENEDEN ZULT U OOK DP Dé FIRE- * 

P‚ "BUTTON MOETEN DRUKKEN ON” 








FP." DE GE- HEIMZINNIGE RING DIE U BI U DRAAGT ENERGIE TE LATEN LEVEPEN" 
PF.“ OM DOOR DE GANGEN TE KUNNEN“ "LDPEN"" 

LINKNFFES 

CLS 


INDIEN U FRODO HELEMAAL NAAR" “BOVEN HEBT GELEIDT ZULLEN DE 
SPINNEN BIJ DE VOLGENDE RONDE" 

SNELLER GAAN LOPEN. HET SPEL IS TEN EINDE INDIEN * 
P,"U ALLE FRODOS OF ALLE ENERGIE" 
PF." HEBT VER-BRUIKT, "" “VEEL SUCCES, .,. {OM ELBERETMI "7 
LINKSFFES 
PETURN 
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pPISK-—-DUuMmr= 
Het Backup programma van Ronald Boers werkt bij mij riet goed, daarom heb ik 
maar zelf iets geschreven. 
Het dumpt de hele schijf op band inclusief de directory zodat het zootje ook 
weer automatisch terug te dumpen is op schijf (het programma hiervoor komt nog). 
Je hoeft niet met het eerste programma te starten: dit is voor het geval de band 
vol raakt en opnieuw gestart moet worden, 
Het programma gebruikt de P-charme 1208 Baud routine maar kan cok voor de Jasbox 
aangepast worden (r.?0 en 228 COS1-FCOS), De programma's van de schijf worden 
geladen vanaf #3000; wie krap in geheugenruimte zit kan het duapprogramma op 
pag.#22 zetten en de programma’s laden vanaf #2580. 
Hiervoor het adres op regel 168 en 288 aanpassen. 


18 LINKHEOGG 

20 P,SI2sIS"*&* disk-tape dump #4" 
IN."vanaf prag-nr. (8-31) "C 
‘“schijf plaatsen.recorder:tpname" ‘st INKGFFES 
80 S-#21C; DIR 

50 A=#2000; 'S=1A;5!8zAl4 

55 SIg=Al256;5712=A7260 

68 S715=#D;P.$12S5 

65 IFC>0;G. 102 

78 COS1; S#2BC=RFAESFSGE 

80 !#208=#C278C278 

F8 +5AVE"DIR" 2000 2200 

180 !'#200=#FEGAFES2 

tid T=1@;V=#08z E22; P.C 

115 BeA+?#2105-8#C 

128 FOR P=B TU #2608 S.-8 

IFT>32; T=10:C=C+3$P. °C 








: “s5 
152 DOP." "$U.C. Ts T=T+10 

160 K-480; !X=53 k 12243000; XP 4=AFF 
178 LINKWEODO; L INKKE477 

180 +DIR 

190 1 2eP IVE XI G=PE(V4+2) 

200 X16=#5000; K!B=XEb+PI (V+4) 
218 !W208=#C278C278 

INKEFAES 

230 !N208-HFEFAFESZ 

248 N.:P.$787$7' "LAAR": END 





PAG. 14 ACORN NIEUWS BACKUP FRANS LE BLANG 





BACKLUIEF 


Pit programma kopieert een hele schijf naar 


de cassette met 1200 baud en is 


bedoeld, zeals de naam al aangeeft, als backup voor de diskgebruiker. BACKUP is 
een verbeterde versie van het eerder gepubliceerde programma DISKEAS. De 
verbeteringen die in deze versie zijn aangebracht zijn: 


1. alle files worden geladen vanaf #29@8; dus ook randon-files en boxen 


kunnen nu gekopieerd worden. 


2. ook files, die onder een andere dan de 


nu gekopieerd, 


default-qualifier staan worden 


3. de files die het eerst op schijf gezet zijn, worden nu ook het eerst 


gekopieerd. 


Aan het startadres kan men later, als men de file van tape af pil halen, zien of 
de file een BASIC-progranma, een box, een räandoa-access file of een tekstfile 
voor de editor is. Het progrâmaa moet gerund worden op #829@ om een optimaal 
gebruik te kunnen maken van het lage werkgeheugen. 


1@PROGRAM BACKUP 

20REN VERSIE 1.2 

JOREM HELE DISK OP CASSETTE 

A4OREM Frans le Blanc 

58 

EBPROC TMENU 

78m=0; 228; Y=TOP-56; S=TOP-57 

BEP, $12; CLEARO; LINKHEGDG 

9gP," BACKUP -PROGRAMMA" * 
180P.” DISK NAAR CASSETTE" " 
118P.S9"KOPIEERT HELE DISK NAAR TAPE“ 
128P.$7"ALLE FILES WORDEN VANAF #2700" 
130P.S9" GELADEN MET 1208 BAUD (FEOS)"'” 
14QP.S9"PLAATS DE DISKETTE IN DRIVE B" 
15OMOVEG, 40; DRAWG 2,40 
168DRAW&2, 22; DRAWO, 22 

174DRAHG, AG 

18BINKEYIJP. 

19B*DIK 

Z4RENONON 
2188=8; V=0;U=?#2105 

228F=U+#2020; G=U+#2100 
232F.N=@T0 (U-815.8 
24BB=! (GENIEKFFFF 








258 (GEN+4)ERFFFF +B 

268! (EZLBCAHNI NEF; V=V eld 

27ÖN, 

28BP. "START RECORDER" "DRUK DP EEN TOETS" 





298 INKEYI 

Z0OP,  “PROGRAMMADUUP ; hd 
Zl@P=V/1024#14/68+LU/B-1)#10/58+1 
3208=2;P,E" MINUTEN" 

33@P, “TOTALE GEHEUGEN: PV/1024* Kir” 
S40P, “AANTAL PROGRAMMA'S: “U/B-1 
3S8PAU. 200 

360P.s12" 

27OF.N=Ff TO #2008 S.-8 
SHRP, 


INDEX*’; 24E1=8 





590F.1=0T04:P.SCPINHID) GN. 
462P. * hi 

ALON. 

420FCOS; REM uit diskbox 
43BENDMON 

44OR=IE2AAG 7R24A-RDS; PIIGB=HFE 
A50*5. "INDEX" 8000 8200 

4D! #20A=R 

A7APEND 

480 

A9BPROC DISKCOPY 

502P.$12$15; ?#E1=4 

510D0; ADRES 

SOL INKWEDOD 

53OP.* "3 F.NZATOAGP. SEN iN. 
54DE=5;P," "LB,E, LL" 
SSOFLAAD; 605. a 
56@PAU. 200; FAU. 208 

57OFSAVE 

580P. sic" 

s9ercus 

GBOFNOMON 

61DR=!#20A; "#2DA=NPT; MW2OB-AFE 
628605. b 

630!820A=R;P. SII" "7 
4ADF=F-8; 6=G-8 

bSUUNTIL Fc 2008 

b6BP. "klaar" 

670P. "STOF RECORDER" 

&8ADD KEY I;BEEEP 20,58;U. 1: A 
&TOPEND 

700 

T18PROC FLAAD 
720X=Vi SXT" RLOAD" tr 
PIBXENAL Xi HES 

740F.N=0T06 

T5OXIE FIN=32; X?N=H; H232 
S4BELSE X2NEEIN 
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TION. j Kek? 
780KLF H=34; ?X=34 

79DELSE 7X=32 

BABK=K+L 

B1Dst=" 2900"; KEXeL. A41 
820222; KP 1211 E KP2ECHPR"; KPS=CH" "KZ ARD 
BIOXIF FIT2R7F; 25= (F7) #00 
B4GELSE 75=F77 

BSOPEND 

g60 

B7PROC FSAVE 

BBAX=Y; S=" SAVE"; XP5=CH" Ue 
Boox={e14 

vada=#2900; FADRES 
9100=E-B+#2900; FADRES 
920G=L; FADRES 

PILPEND 

940 

95OPROC ADRES 

V&BE=!GLMFFFF 
PIDE=! LB44) LOFFEF+B+L 

9BBL=! (G+2) LAFFFF 

990FEND 
1080 












1818PROC FADRES 

1020I=1; X0=420 
1830J=0&#FG00/#1080; ZADRES 
10403=04#AFO0/#100; ZADRES 
1052J=QERAOFA/BID; ZADRES 
1860 J=QE#0BAF ; ZADRES 
187AX=kt5 

1OBBPEND 

1090 

118OPROC ZADRES 

1I1BIF J>9;J=J47 
1120J=J+# 5 
1130XP Le; I=l+1 

114BPEND 

1158 

116OTMENU; DISKCOPY 
117OBEEP 29,50;G. 1168 
1188 

1I9OaREM SET QUALIFIER 
120B2SETx 

1210bREM LOAD/SAVE 


122RESAVE" wxxnRnK” 2900 EEEE LLLL 


1230R, 





SCHEMA VAN “STEM AAN DE ATOM" (zie pag. 87) 


OTT CONNECTOR PL EN 
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SEREEN BACKUP 


Het onderstaande programma maakt het mogelijk om de inhoud van een scherm in 
textmode naar een bepaald geheugen te copieeren en terug. Basic programma's 
waarin men veel werkt met gegevens overzichten kunnen gebruik maken van deze 
routine, In de ASBK=l komt ongeveer een gelijksoortig statement voor, daar niet 
iedereen deze utility heeft en het basic programma toch universeel moet blijven 
is het aan te bevelen om zo'n routine vast in het programma op te nemen. 


Het terughalen van eerder opgeslagen beeldschermen gebeurd nu met zeer hoge 
snelheid, Voor het gebruik van dit programma hoeft men geen kennis te hebben van 
de asseabler omdat de routine helemaal in basic wordt geinitiatiseerd en 
opgestart. 


Heeft men een bestaand programma dat men wilt aanvullen met deze routine dan zal 
men eerst moeten bepalen waar de routing komt te staan en welk deel van het 
geheugen als backup moet worden gebruikt. De plaats voor de routine kan 
bijvoorbeeld achter de basic programma zijn. Men moet hierbij wel nog ruimte 
overlaten om het basicprogramma te kunnen uitbreiden. Indien men over 
laag-gestapeld geheugen beschikt dan kan de routine staan op bijvoorbeeld #3FA@ 
en zoniet dan op #3BA3. 

Voor ensen met een disc-drive kan als backupgeheugen #2409 tot #2800 warden 
gebruikt (4 beeldschermen), Heeft men geen disc-drive of wilt men 8 
beeldschermen opslaan dan kan het geheugen vnaf #8200 tot #9229 worden 
gebruikt,De selectie van de beeldschermen gebeurd door middel van een basic 
variabele, bijv, A=D;LINK#XXXX, De gebruikte variabele kan men zelf kiezen. 
Daarna wordt het startadres aangeroepen voor het “tpaden* of “saven” naar het 
backup geheugen. Het aantal beeldschermen (afhankelijk van de behoefte en het 
geheugen) ìs 2, 4 of B, Bij gebruik van 4 beeldschermen heeft het eerste scherm 
het nummer 8 en het vierde scherm nummer 3. De routine gebruikt alleen het van 
te voren bepaalde batkup geheugen en zal dit niet overschrijden, ook als het 
beeldscherm nummer wordt overschreden. 

Na het runnen van dit programma moet het startadres en het backup adres worden 
ingegeven. De routine heeft een lengte van #41 bytes. Voor elke 2 beeldschermen 
aan backup geheugen heeft men #490 bytes ofwel IKbyte aan vrij geheugen nodig. 
Vervolgens wordt er bepaald hoeveel beelschermen aanspreekbaar mogen worden. 
Hier worden alleen de getallen 2, 4 en 8 geaccepteerd. Vervolgens wordt er naar 
de variabele gevraagd die de beeldschermen moet selecteren. Bij voorkeur nergens 
anders in het basicarogramaa gebruiken ot problemen te voorkomen. 

Men kan het assembleren via het beeldscherm en printer valgen door bij de 
volgende vragen "Y” of "N" 1a te typen. 


Na het assembleren volgt de informatie omtrent de startadressen voor het “saven” 
en “loaden” van de beeldschermen, Hierbij ís aan te raden om deze samen met 
topadres van de routine door middel van "REM" regeis in het basic programma te 
vermelden, dit voorkomt veel zoekwerk bij eventuele latere wijziqingen 
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10 REM SCREEN BACKUP V5.1 

20 REMMARANENKKERERK ENDE DENK 

30 REMe CHARL DE MOOR * 

40 REME JAN 1985 * 

59 REM« 845 — 2723 5B * 

GB REMEREERENE NARE EN 

70 P.$6$12"SCREEN BACKUP V3,1*'"(C) CDM 1985" 

89 DIMLL30,AG,BB,VO;F. 1=OTOIOs LLISHEFF;N. ; €=0; 7#E6=2 
98 IN. ’'"ASSEMBLING TQ “z 
128 IN."BACKUP MEMORY sLL9=Y}LLIG=Y/256; IFZ=V;G. 70 
118 IN."SCREENS (2,4,8):"$V;LL CHSV) -49 
128 IF LENV=1 A.CH$V=#32 ORCHSV=#34 ORCHSV=#38 G. 140 
130 P.$7$7$1i;F.N=#8DAQTOHBRCO; PN=R20EN. ;G. 110 

140 IN."VARIABLE (A-Z) 4 "$V;LLE=(CHSV) +757 

158 IF LENV=1 A.CHSV>#40 A, CHSVCHSB 6,170 

168 P.$7$7511; F.N=#B0COTOHBIED; IN=#2DjN. ; 5. 148 

178 IN.'"LISTING (Y/N) :"$A 

180 IN.“PRINTER (Y/N) + 

198 
200 
218 ? 
220C\START 
230:LL0:\ SEREEN > BACKUP 
248 JSRLL2; JMPLL4 
250:tLi:\ BACKUP > SCREEN 
268 JSRLL2; JMPLLS 
270:LL23LDYERAI; STYRBE; LDALLB; ANDELL7; CLC; ROLA 
288 CLC;ADCELL 3D; STAKBF; RTS 

290:LL3; LDA(#BE) ,Y; STAKBAOG, Y; INCHBF 

300 LDA(#8E) ,Y;STA#B18G, Y; DEC#BFz INY; BNELLS; RTS 
310:LL4;LDAKBDOD, Y; STA (HBE) ,Y; INCHBF 
320LDA#B180, Ys: STA(HBE) ,Y; DECHAF; INY; BNELLG; RTS 
330I;N. 3 IF NBE=HZSG. 400 
3408 P.$6"SCREEN BACKUP V3,1"'"{C} CDM 1985"'"' 












358 P.“ TOP : #"&Z'" END : #"&P'" SIZE: "‚(P-Z)* BYTES" 


348 P.“ SCREEN > BACKUP : #"&LLD' 
378 P." BACKUP > SCREEN : #"&LL4'’ 
388 P.*“ BACKUP: #"ELLI' "7 

390 A=8;P. 5; END 


400 P.$4$7$7$7''"OUT OF RANGE DETECTED !!"';6.590 
BIB Aenatennennnnnnnne nk eek 
415 # LABELS: + 


428 « LL7: NUMBER OF SCREEN « 
430 * LLB: VAR. ZERO PAGE * 
44B # LL9: MEMORY BACKUP * 
EUT: IR Betkekdndededhekediehededhkehehkedeediihad 
460 # ZERDPAGE LOCATIONS: * 
47D # #BE,HBF: INDEX BACKUP # 
BED MAUER NKK KANE EKEEKENEKER 
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Alvast veel plezier met het uitproberen van onderstaande “hulpjes”. 


— BNELLERE GOTO 
— WHATLINE 

= GUERY-BUERY 
—- BOOLE 


SNELLERE B0TO 


Het volgend truukje kan erg nuttig zijn, maar alleen wanneer: 

= een pragranaa groot genoeg fs 

= er veel BOTO's in zitten welke erg vaak gebruik moeten worden 

- snelheid belangrijk is 

= er rustig enkele extra bytes aan de prograamatuur toegevoegd mogen of kunnen 
worden 


De Aton kent twee sprong-opdrachten: 

spring naar regelnuaaer 

spring naar label 

De eerste nethode is relatief langzaam maar de tweede is heel erg snel (zie pag. 
25 & 2e Engels handboek). 


Regelnunaers hebben we altijd wel genoeg ( er kunnen er ruim 39.008 worden 
gebruikt) maaar het aantal labels is beperkt tot 26. En als die op zijn moeten we 
onze toevlucht zoeken tot het gebruik van die langzame regelnummers, Er is 
echter een derde mogelijkheid om sprongen uit te laten voeren. Machinetaal- en 
diskdrive- gebruikers kennen allemaal wel het auto-startadres #CE86. De routine 
die op dit adres begint zet eerst het Y-register van de processor op nul en 
haalt dan de page-vector op, -deze staat op #12 (?18)-, en zet vervolgens de 
gevonden waarde in locatie #06. Bijbehorende locatie #85 wordt op nul gezet en 
evenzo de regel-karakterteller #93. Vervolgens wordt er gejumped naar 40559. 
Gesteld dat we een progratma af hebben en dat alles goed werkt, maar dat 
verschillende routines wat langzaam zijn. Dit kan dan bijvoorbeeld komen door 
het veelvuldig gebruik van GUTO's naar regelnumners, Deze worden steeds 
langzater naaraate de regeinumaers hoger zijn. We nemen dan vooraan in het 
prograama (regel B of zo) het volgende routinetje op: 


@ P.S21jPel....;CLDYEO; JMPRCSSB; 1; P. 46 

en op de plaats van ,…… zetten we het adres waar dit stukje machinetaal naartoe 
oet. 

Nu staat bijvoorbeeld ergens in ons prograama: 

GOTO 1828 

en de routine aldaar aoet vaak worden gebruikt, dan kunnen we met b.h.v. ‘n 
hexdump of met het verderop in deze uitgave beschreven WHATLINE opzoeken op welk 
adres regel 1928 begint, VOOR elk regelnumser staat een carriage-return (8D) en 
het is dan DAT adres dat we eventjes moeten onthouden. 

Gesteld dat adres is: #34B7. I.p.v.: 

GOTO 1008 
vullen me dan i 
15=#34B7;LINK.... en op de plaats van ,.. moet dan het adres komen waar het 
chinetaalroutinetje staat. Met name bij hogere regelnummers werkt deze methode 
vele walen sneller dan de gewone GOTO, En dit komt doordat de computer nu 
Gebruik gaat eaken van hetzelfde principe als bij het gebruik van labels: 

Een adres wordt uit een tabel opgehaald en de basic-interpreter gaat dan verder 
net de uitvoering van de prograamatuur op dat adres, 

Een en ander zal uwisschien een aanzet ziijn om iets uit te vissen zodat dit 
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truukje ook gebruikt mag worden voor GOSUB's. 
LINK en GOTO mogen uiteraard worden afgekort hetgeen ook weer sneller werkt 


WHATL INE 


18DIMLL5;F. G=0T05;LLG=-1jN. ;P.$21sF.Q=0TO1; P=#47000; L 
22LDA#3IE; STA#H1:LDYED; STY#BB; STYR2EFF 

36: LLOLDA (#80) „Y5 INY; CMP@AD; BNELLO 
ABTYA:LDYEQ; CLC; ADCHBY; STAHBD; BCCLL 1; INCHA1 
SE:LLILDA(#BB) ‚Ys CMP@HFF; BNELLS 

BO: LLZJSRAFTD1; 1; SP="EINDE PROGRAMMA" ;P=P+L,P; [NOP 
7AISRHCDSA RTS 

BO: LLILDA(#BD) ,Y3CMP#SID; BNELLO; INY; LDA(#BO) ‚Y; CHP#322; BNELLO 
9OLDAE1L; STARZBFF; RTS JiN. 3P. $6 

18OIN. “BEBIN"B; @=5 
118IN. "REGEL "A; LI. #7000 
1201F?428FF=1P, "REGEL 
1306. 110 





STAAT OP #"&7#B1#256+7888-1 


Je kunt natuurlijk regel 118 vervangen door een lus zodat de adressen van ALLE 
regelnunmers automatisch worden opgegeven. 


27 (spreek uit: kweerie,kweerie) 
Wat betekent %%08=10. Op zerc-pagetocatie #80 wordt dan de waarde 10 geplaatst 


M.a.w, letterlijk: 
de inhoud van #88 wordt 10 


Wat hetekent '#BE=#2A303486. Op zero-pagelocaties #82, #81, #82 en #85 komt dan 


te staan: 
#80 = #06 
#81 = #34 
#82 = #50 
#85 = #2Â 


Inderdaad precies in omgekeerde volgorde ingevuld. 


Wat betekent G=#2802: G7#20=17 
G + #20 = #2829. Op locatie #2820 wordt dan 17 geplaatst 


In sommige programma's staan echter constructies als 
627888 af K!!F e.d. 
Aan de hand van een voorbeeldje zal ik uitleggen wat hiermee wordt bedoeld: 


7480 = 6 inhoud van #88 wordt 6 

6 = #2800 inhoud van G wordt #2608 

G?#18 = #80 inhoud van G + #18, dus 
inhoud van #2818 wordt #80 

G?281D = 5 inhoud van G?#18 is #80 


inhoud van #88 = 4 
inhoud van G + 6, dus 
inhoud van #2886 wordt 5 


Lees bovenstaande regels aandachtig door en probeer ze cak eens uit. En kijk dan 
elke keer m.b.v. een hexdump naar het desbetreffende geheugengebied (hier dus 
#2800) . 

Het aantal ?'s en ook !'s mag zo groot zijn als men zelf wil. Houdt er wel 
rekening mee dat vaar het lezen van contructies met 5 of neer ?'s af !’s heel 
wat gedachtensprongen nodig zijn. Een geoefend schaker of schaakster zal een en 
ander wet geinig vinden, 
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Denk niet dat dit wat met biljarten te maken heeft. De Atom kent een 
mogelijkheid om vergeijkingen te maken welke als resultaat kunnen hebben dat ze 
goed (TRUE) of fout (FALSE) zijn, Iets precieser: “WAAR" of “ONWAAR”. 

Probeer het volgende maar eens uit: 

18 A=#2500 

za B=#2C09 

38 $A="BODLE" 

40 $ BODLE" 

50 C=($A=$B) 

&8 IFE P,"GELIJK“'; G.88 

78 P,"ONBELIJK"" 

88 END 





Na runnen van bovenstaand programmaatje zal er "GELIJK" op het scherm worden 
gezet. 

Verander nu regel 38 in: 

30 $A="POOLE" 

Na runnen zal er “ONGELIJK" worden afgedrukt. C wordt nu gebruikt om een Boolse 
waarde in op te slaan. Als we voor alle twee de voorbeelden de waarde van C 
opvragen dan zal er de eerste keer komen te staan: 

P&C 


2801 
en de tweede keer: 
P&C 


2820 


Bij het stellen van de vraag: 

IFC {de spatie hierachter is verplicht) 

kijkt de corputer aìleen naar die laatste 1 of 8. Staat er ‘n 1 dan geldt dat de 
vergelijking klopte, dus TRUE. Staat er ‘n B dan geldt FALSE. Zodoende... 

Het voordeel van deze methode is dat gekeken kan worden cf iets klept of niet en 
wel op zodanige manier dat plaats en tijd worden bespaard en aet name plaats. 
Dit soort geintjes kan natuurlijk ook voor andere zaken worden gebruikt: 


K=( (A#B+C&D)/ (F&G) =12) of 
T=(X=18) 


maar we kunnen er ook in een keer een hele heop dingen mee testen: 

10 A=18;B=10;C=50;D=50;E=89;0=89 

28 Ke(((AzBi= (CED) etE=0) 

38 IFK P,"GELIJK” 

48 END 

zal na een run "GELIJK" op het scherm zetten. Vergelijk deze methode maar eens 
met: 

18 A=10;B=10;C=50;D=50;E=BI; D=89 

20 IFA=B IFC=D IFE=O P. "GELIJK" 

58 END 


Ket zal dan onmiddelijk opvallen dat de eerste methode meer plaats gebruikt en 
dat er tevens een variabele extra moet worden gebruikt. Wanneer we echter 
herhaalde malen gebruik moeten maken van de vergelijking kunnen we in het eerste 
voorbeeld volstaan door elke keer te vragen: 

IFr. 

IFK etc, 
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TELETABL IST 


Progranma ontwikkeld door J.v.ESSEN tbv. TELETYPE TOEPASSING. 


Essentie is dat programma in 2 gelijke kalomaen geprint wordt 


Link adres in regel 28 is teletype-output routine. 





18 REM TELETABLIST 
14 P‚'" 
15 P.”VUL IN REGEL 28 ADRES" 
16 P.“VAN UW TELETYPE ROUTINE""’ 
24 LINK#6AGB;P.$2 
3e @=5jC=l;Dei 
35 P,*GEEF HET STARTADRES VAN "' 
36 P.‚*DE TE PRINTEN LISTING*" 
37 P,"BV, #29 led 
40 IN. “STARTADRES/TEKSTSPACE"T 
58 T=1425643; 5=T;R=B 
68 IFL.T>29;R=R+1j T=T+50; 6. 60 
78 R=R+1zT=TeL. 145 
BR IFT?-2>2556G. 60 
98 TeB;MeR/2; IFRA2; Met 
188 R=8 
118 IFL.T>29jR=R+1; T=1450;G. 110 
120 R=R+1l; T=T+L. T+5 
138 IFRCM;6. 118 
148 P=T;T=5;O=P 
158 P‚,$15$2°“' 
148 E=C;Q=T; EDS. az A=Fj CEE 
178 IFA=35;C=8;P.," "36.218 
180 IF?T=13;6, 200 
190 P.$(2T) ;A=A+1; T=T+1;5G. 178 
200 T=T+3;F.IzA TO 36jP." “iN, 
218 E-D;G=P; GOS, as B=Fj D=E 
229 1F8=35;0=0;P. ‘;Q=P;GOS.c; 6. 160 
238 IF?P=13sP=P+S;P. ‘;G=P; 505, C;G. 164 
248 P‚$(?P};BeB+1;P=P+1;G. 220 
258alFE=0;P." “zEz=ljF=bójR. 
268 GOS.c 
270 G=(Q?-2)#256+(0?-1); P.G; F=5 
280 IF?G>32IF?0>5EIFIEKDPILIFZOLHISIFIGLIEP." "zF=Ftl 
290 R, 
30BcIF(Q?-21=255IFO=T; Gb 
318 R. 


320bP."'';F.I=1T0201P." ";N.jP. "PROGRAMMALENGTE“"D-54+2" BYTES" 





"83 
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PIE-CHART VOOR GAGS 


Dit programma genereert een zogenaamde pie-chart op basis van de invoergegevens 
Gevraagd wordt een kopregel, hoeveel partjes en het aantal procent per partje en 
bijbehorende tekst. Probeert U zelf maar eens wat mogelijk is. 

Dit prograama heeft GAGS nodig plus geheugen tot in de 16K kaart op #4200. 


10 REM #renentennentennnnnns 
ze REM » PIE-CHART * 

30 REM + BY: * 

48 REM # THEO DEN EXTER &# 

5O REM HeBRAEREBEEERKDEERR EN 

«a 

78 REM s#INPUTen 

88 

98 P‚$12;GAE5;P. 812815 

igg P‚* t#ePIE-CHART GENERATOR!" "" 

118 DIM W(64);P, "HEADLINE: * 

128 DO; INP. $W;B=i 

138 FOR I=d TO LENW;A=I?H 

148 IF AzCH"t* OR A=CH"," OR AsCH*-";G.v 

158 IF AC838 OR A>=#5B;IF AX>N28 AND ADHD; B=0 

168 IF 839CA AND A<=44; BS 

178v NEXT 

168 IF B=8 OR LENW>20;P."NOT CORRECT, REENTER PLEASE: "" 
198 IF B28 OR LENW>20;P. “HEADLINE: * 

20B UNTIL LENWS21 AND B=ljP, "" 

218 DO; INP, “HOW MANY PIECES "‚M 

220 IF MZ DR M>8;P."NOT CORRECT, REENTER PLEASE: "" 
238 UNTIL Zet AND MC=8 

248 FDIMXMM(M) ; ZR=0 

258 DIM TT(M),T(@; E20; I=1 

268 DOP,” 

278 IF IeM THEN %A=180-XR;B.d 

288 DD;P.I" — HOW MANY X ";FINP,XA 

298 UNTIL ZADz4 

300 FIF XR+XA<=296 THEN Ged 

318 FIF ZR+XA>=188 THEN 5. i 

328 ZA=Fb-IR;G.d 

338i ZA=1A0-IR 

348 P.“NUMBER OF PIECES REDUCED TO *'1I" UNITS*';M=I 
350d TTI =T 

368 DIP, “TEXT PIECE "I* “;INP,ST;Bei 

376 FOR Jz@ TO LENT;A=J?T 

388 IF AzCH"£" OR AzCH"," OR AsCH"-";G. nm. 
398 IF ACH3B OR A>=85B; IF A<>#28 AND AC>#D;B=G 
440 IF @39<A AND AC240;B=2 

$1Bw NEXT J 

420 IF B=@ OR LENT>10;P. "NOT CORRECT, REENTER PLEASE: ": 
438 UNTIL LENTCIS AND Bet 

849 T=T+LENT+2 

458 ZMM(I) XA; Iel+ 1; XRSIR+XZA 

468 UNTIL DN 

478 P.''"LAST PIECE "A" IS * 

488 P.X(XMM(M))" £""""PLEASE ENTER SPACE BAR" 

498 LINK eFE74 

sen 
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519 REM ##SET UP DISPLAY» 

520 

530 B=80;C=84; D=50 

540 BASEFH; CLEARA; BORDER 5,5 

558 MOVE 250,162;DRAN 226, 186 

560 CUBE 2,D,226,162,24,24 

570 CIRCLE 1,B,C,D 

588 CIRCLE 1,8,C,1;CIRCLE 1,8,C,2 

590 

680 REN ##COLQUR PATTERNSe+ 

610 

620 CREATE/P:B #55,#AA,R55, HAA, NSS, HAA, N55, HAA 
630 CREATE/P:2 W44,#11,W44 #11, #44, HIL, 446 #11 
640 CREATE/P:3 #97,0,#99,8,#99,0,#99,0 

650 CREATE/P:5 0,0,0,0,2,9,0,0 

66B CREATE/P:7 #66,999,899,Abb ‚#66 ‚RIF ,499 N66 
670 CREATE/P:4 #22,411,888,444,#22,#11,888,#44 
GBO CREATE/P:6 #44,NBB,411,#22,444, KBB, #11,#22 
&9D CREATE/P:j BEF,NOO,4FF, HDD, HEF „#00, #FF „400 
79B CREATE/P:11 #88,#00, #00, HUD, #88, #00, #00, #00 
710 

720 REM #+DRAWER 

730 

740 GUS.bD;REM ##PLOT LINEGE 

758 GOS.c;REM #*COLOUREN 

760 PAUSE180 

770 PAINT 1,6;PAINT 254,96 





780 

798 DEF ACA,32000111109BB00 
888 DEF: 008LD1 1111150000 
B18 DEF: @00Pe1i111t0000 
828 DEF: 920011111111 0900 
830 DEF: 980011111111 0088 
849 DEF: OODBIiiiit13DODD 
859 DEF: @E0D111t11110000 
848 DEF: ggeauoeeee28EL00 
870 DEF ACB,BOO11LI111111000 
889 DEF: QEBtiifilitt1008 
898 DEF: 280011 1111110000 
900 DEF: gagago11t1000des 
918 DEF: B081100110050000 
928 DEF: 49008111 1044d000 
958 DEF: 9020009111 100808 
948 DEF: 4208008001 111100 
920 

960 DEF COP‚4001111992000004 
977 DEF: 20100091 0000G228 
988 DEF: Bielii1et0P000HE 
998 DEF: @181900D10200PDD 
10888 DEF: @1819B001 0000000 
1810 DEF: @ta1i11212020020 
1828 DEF: @8195001 04030088 
1938 DEF: 498111 (00009098 


1DAA 
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1852 REM #+HEADL INE** 
1068 

1278 K=20+7#LEN U 

1089 X={256-K)/2; IF LENW=0; X=30 

1898 BLOCKO,X,159,K,19 

1108 CUBE1,@,X,159,K, 19 

1118 SET: ACA, (X+39,176 

1128 SET: ACB, (X+3) „168 

1138 IF LENW=@ THEN G.g 

1149 FOR I=@ TO LEN W-1 

1158 SET (WII) ,(X+204741) „172 

1168 NEXT 

1179 

1188 REM#COPYRIED# 

1198g BLOCK B,8,11,9,8 

1208 SET:COP,8,16 

1218 MOVE 5,5;PLDT 7,250,5 

1228 PLOT ?,258,162;PLOT 7,226,186;PLOT 7,5,186 
1238 PLOT 7,5,5 

1240 CIRCLE 1,80,89,2 

1250 PAUSE 188; 1NV 

1268 

1278 REM #*WHAT TO DO NOW?4+ 

1280 

1290h 6. h;REM #4RDOM FOR SCREENDUMP+e 
1304 


1528 

1330a REM &#MAIN PLOT LINE: 

1348 Xe (B4745INZA+B. 5) 

1358 Y=4(C+7#COSZA+B, 5) 

1358 MDVE B,C;DRAN X,Y 

1370 Ext (X+(D+4) #5IN(ZA) +8. 5) 

1380 Fz%(Y+(D+4) COS (XA) +B. 5) 

1598 PLOT 15,X,Y 

1498 HLINE 1,X,Y,E,F,256,1,X,Y 
141@ RETURN 

1422 

1430b REM #rPLOT LINES 

1448 PAINT 6,6,11;PAINT 6, (C+D) ‚11 
1458 GOS.t 

1460 KR=0; {A=0; 605. a; AW=0 

1478 FOR I= TO M 

1488 IF IsM;6,r 

1499 ZR=ERAANN(IJ#24P1/1D8 

1508 XA=XR;EDS.a 

1518r XKeXWePISXMM(IJ/100; XW=ZWe2eLMM IJ #PI/1OG 
1528 K24(B4(D+12) 8SINZK) 

1538 Y=X(C+(D+12) #COSXK) 

1548 K=X-BzY=Y-43 BLOCKS, KY, 18,12 
1559 CUBE 1,84,X,Y,1B,12 

1568 KEXCXMM(EI 4D, 5) jLEKLIG+HID 
1578 K=K/10+650 

1588 IF K=830ESET:SPATIE, X43) , (Y+F) 
1598 IF KCNRIEJSET K‚ 43), (Y49) 
162B SET L, (XB), (Y+9) 

1618 SET:X,Ke13), (Y+9) 

1628 NEXT 1 

1638 RETURN 
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1648 


1658c REM**COLOURE 
REMX4COMPENSATE HLINE ERROR 
REM&*SHADER* 


1660 
1678 
1688 
1693 
1708 
1710 
1720 
1738 
1748 
1759 
1768 
1778 
1780 
1790 
1840 
1818 
1820 
1850 
1840 
1858 
1B68 
1870 
1889 
1878 
1992 
1910 
1920 
1930 
1940 
1958 
1960 
1978 
1980 
1990 
2000 
2012 
2920 


2040p 
2050 
2048: 
2070 
2089 
2070 
2100 
2118 
2120 
2150 
2148 
2158 
2160 
2170 
2180 
2190 


CIRCLE 
CIRCLE 
WINDOW 
CIRCLE 
WINDDW 
CIRCLE 
WOFF 


LR=B5 A= 
@ TO Mt 


FOR 





0,8,C,D 
1,E,C, (D-4) 

1, (Be) ,0,D, 196 

1, (BH) ,C, (D-1) 
1,(B+2),D, (B+1) ‚196 
1, (B423,C, (D-1) 


1; AMMO EL 


ZRELRACHMM LIP #2HPI/109 







PAINT 


K(B+(D-9) ASINLR+0, 5) 
(C+ (D-9 COBAR+B, 5) 


KY,A 


UR+LAMM (IEI 1.5) #22P1/108 
(B+(D-F)SINZW+0.51 


Yak (D4+(D-9)#COSAUIO, 5) 


PAINT 
NEXT 


XY, Ar A=Btl 


REN ##CUBES4E 





TO M;IF LEN TTI) >8sKakt1 


NEXT; IF K=3;5.p 


B=l& 





=7+(K-1J 18 


1=0;5=0; DO; I= {+1 


IF LEN 


TTI} =0; 6.1 


S=5+17 Keke 
BLOCKO,B, (C-184 (8-19) ‚15,15 

CUBE 1,0,B, (C-18#(S-1)) „15,15 

CUBE 1,0, (B+2), (C+2-18&(5-1)) „11,11 


PAINT 


(B43h, (C+3-1BR(S-LI) ,L 


Q=B+21;R=C-184 (8-11; T=25b-11-0; BLOCK B,G,R,T,15 
CUBE 1,2, (B421), (C-18#(5-1)+1), (256-11-B-21),14 
GOS. y; REM ##PLGT ALPHAts 

203D1UNTIL K=0 


RETURN 


REM we AlPHAER 
BASE#98 


CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 


ZERO, 0, #70, 888, NCB, RAB, #98,488,#70,0,0,8,2,0,0,9,0/A: CHO” 
ONE, 0,#70,#20,#20,820,420,#40,#20,05,4,0,0,0,2,0,0/A:CH*1“ 
TWO, ,#FB, #80, #80 ,#70, N25, RBE, #70,B,B,0,0,0,0,0,2/A:CH*Z 
THREE ,@, #70, N88, AE, #34, HOB, HEB, #70,D,0,2,8,0,0,0,2/A:CH 








„0, 
‚2,8, 
FOUR ‚0, #10,#19,#FE, #90, #50, #38, #LD,0,0,0,0,0,0,0,D/A:CH' 4" 
FIVE,O, #70, HBB, #DB, 808, #FO,MBD,RFB,D,0,D,2,0,D,2,0/A:CH"S" 
SIX,0, #70, #88, HEE, KPD, KID, #40,#30,0,9,0,0,0,0,0,0/A:CH'é“ 
SEVEN, 0, #BO, HED, #49, 422,10, HDE, KFE,P,2,0,0,,A,0,0/A:CH*7" 
EIGHT,G, #70, H80,435, #70, RBE, HER, 470, 0,0, 0,8,0,0,0,A/A:CH'E" 
NINE, 0,#60,#10,#28,#78,#88,#88,872,0,0,0,2,0,0,9,8/A:CH'9" 


‚0,2,0,0,0, 
A,0,#08, #08, N88, AFB, 488,HB8,470,0,0,0,0,2,3,0,B/A:CH'A" 
B,0,#FD,#48,948,470,N40,N40,4FD,0,0,0,2,0,0,0,0/A:E- "RP 
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2202 
2218 
2228 
2258 
2248 
2258 
2260 
2278 
2288 
2298 
250 
2318 
2328 
2358 
2548 
2350 
2360 
2578 
2588 
2390 
2402 
2418 
2420 
2450 
2440 
2450 
2468 
2478 
2480 
2458 


CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
CREATE 
RETURN 


C‚9,470,#08,480,#B0,4BO,#B9,#70,0,0, 
D,0,4F,4B,440,44G,#A5,445,4F3, 2,5, 
E‚B,#FG,#80,8B0,4FO, #80, NBE, #F5, 0,0, 
F ‚0,902, N80,HOD, HFD, ABD, #BD, FB,0,D, 
G,0,#78,#88,#88,#D5,#80,#85,470,0,0, 
H‚0,#88,#86,#B8,4F3,#68,#88,#B8,0,0, 
1,0,870,#28,420,#20,#20,#20,970,0,0, 
J,0,470, NBE, #00, N00, #28, 8D8,N05, 0,0, 
K‚@,#88, #90, AAD, CO, NAD, #90, 488, 0,0, 
L‚0,#FB,#80,480,480,480, #50, #50,0,0, 
M‚0,#88,#88,#88, AB, #AB,4DB, 800,2, 0, 
N,0,#B8,#8B,#85,#98,#A8,#CB, 488,0, 0, 
D‚B,#70,#A8, 460, NBG, #55 ,n80,470,9, 
P‚0,#80,#80, 480, 4FO, #08, 188, #F0,9, 
G,0, 46,49, NAB, NAG, N00, #85,470,B, 
R‚D, #88, #90, #AD,#FO,4BB,#B8,IFD,D, 
5,0,870,#08,488, 070,48, 405, 070,D, 
0,420,#29,020,020,420,420,4FE, 2, 
8,479, 400, #B8,#BE, #50, #88, HBD,B, 
8,#20,450, #88,#58, 480, #88, #88,0, 
B, B, 
a 0, 

8, 

2, 

‚9 





#BB, DB, HAS, HAB, 190,88, #08, 
‚#08, #88,#50,420, #52, #09, #88, 
Y,0,#20,020,#20,#50, NBE, #68, #8, 
Z,0,AFB,#80,#40,#20,#10, #08, BFB, 
SPATIE, 0,0,0,0,2,2,0,2,2,0,2,0,0 
X,0, HBB, N48, NAD, N20,0L0, #90, 000,0, 
PDINT,0,#52,#50,9,0,0,0,0,9,0,0,9, 
LINE,9,2,#F8,4F8,3,0,0,0,9,9,0,0,8, 


9, 
ov, 
3, 
8, 
2, 
T, 8, 
u, 2, 
v, 8, 
w, 8, 
X, 3, 
8, 
a, 


2500y REM «TELT ee 

2518 GeTT{I) 

2520 IF LENK=@ THEN G.f 

2338 FOR J=® TO LEN G-1 

2548 SET (B2J),(B+24+J46),(C+11-1Be (5-11) 
2550 NEXT 

2568FRETURN 

2578 

2580t REM SMALL DIGITS 





2598 CREATE @,0,#40,#AD,#AD,HAD, HAD, #AB,#40,0,0,0,0,0,0,0,0/A:CH*O" 
2608 CREATE 1,8,440,448,840,440,840,NC3,440,8,0,9,0,0,0,0,B/A:CH*1” 
2618 CREATE 2,0,#EO,#BO,#80,#40,#20,040,#40,0,0,0,2,0,0,2,0/A:CH“2" 
2628 CREATE 3,0,840,HAD,820,#40,820, PA, H4D,B,D,D,0,0,0,8,B/A:CH" 3” 
2650 CREATE 4,0,928,#20,8EQ,#AQ,#80,#80,#80,0,0,9,0,0,9,0,0/A:CH*4" 
264B CREATE 5,0,#48,HAD,#20,94D,4BD, 400, HEB,B,D,0,9,0,0,0,0/A:CH* 5" 
2650 CREATE 6,0,040,#AB, KAD, KCO, HED, HED, #62,4,0,0,2,0,0,0,0/A:CH*6" 
2668 CREATE 7,U,#88,48D,#BD,#4B,420,020,1E0,0,0,0,0,8,0,0,0/A:CH"7" 
267Q CREATE 8,0,840,#A0,HAQ,#40,4AB, HAD, #40,0,0,9,0,0,9,0,0/A:CH*E" 
2600 CREATE 9,0,4CB,#2B,42D,#5D,HAD,#AD,443,0,0,0,0,0,8,9,0/A:CH*9" 
269Q CREATE SPATIE, 0,8,0,0,0,0,0,0,0,8,4,0,0,9,9,0/A:CH" * 

2700 CREATE x,0,#AR,#B@, #80, #4D,420,828, HAD, 0,0,0,7,0,0,0,0 


RETURN 


OPVOEREN OLIVETTE DISKDRIVE PETER ERICH ACORN NIEUWS PAG. 27 





OPVOEREN VAN DE OLIVETTI DISK-DRIVE 


De snelheid waarmee de kop van een disk-drive-van spoor naar spoor beweegt is 
vaar ieder merk verschillend en kan dan cok in de controller geprogrammeerd 
warden. Dit gebeurt bìj het opstarten van de DOS dus met #D, ot LL INK#EG90. 

Op adres #E862 begint een tabel met initiatiewaarden: de derde waarde, 14, is de 
STEP-RATE. Dit komt overeen met 28 môec. per stap, wat ook voor de Olivetti een 
overdreven grote waarde is. 

Wanneer de drive ap Spoor 48 stilstaat en iets moet gaan lezen of schrijven, 
moet hij eerst 49 sporen heen en terug wat betekent dat je je meer dan 2 
seconden zit te vervelen. Helemaal niet nodig want de drive werkt occk met een 
staptijd van t6 mS. en loopt dan op het gehoor zelfs neg soepeler. Het minimum 
is 12 mS, maar dat klinkt nogal ruw. 

Bet initieeren kan als volgt 


A=#A0B (commando register) 
B=#A0l (parameter register) 
vA=55; PB=HD; 2B=B; ?H=10; /B=$EA 


De eerste 2 waarden zijn de inìtiatiekode. De derde is de STEP-RATE (/2 zie 
boven). Nummer 4 is de HEAD SETTLING TIME, dit is de tijd die de kop krijgt om 
tat rust te komen nadat hij het doelspcer bereikt heeft en voordat het lezen of 
schrijven begint. 

De vijfde waarde bestaat uit Z parameters: de eerste 4 bits (hier #5) bepalen 
het aantal omwentelingen doorlooptijd na een opdracht. Het maximum is 143 15 
betekent dat de motor pas stopt na een andere initiatie of een break 

De tweede 4 bits is de HEAD LOAD TIME. HEAD SETTLING TIME en HEAD LOAD TIME zijn 
waarschijntijk alleen van belang bij het formatteren. Eventueel kunnen grotere 
waarden dan hier gegeven geprobeerd worden als men problemen heett met 
formatteren. 

Niet initieeren terwijl de controller met een opdracht bezig is. Eigenlijk moet 
voor het schrijven gekeken worden of de ragisters al vrij zijn, maar Basic is 
lekker langzaam zodat dit geen problemen geeft. 

De nieuwe initiatie moet uiteraard na de normale (#*D.) uitgevoerd worden en 
blijft geldig na ltees- of schrijtoperaties. Voor de kaart van Telec met de Teac 
drive geìdt dit verhaal ook, aïleen is de optimale STEP-RATE dan 5 (6 m5S.). Deze 
waarde zit al in de standaardinitiatte. 

Tot slot nog een assemblerversie van de initiatieroutine; deze vervangt *D. 


JSRHEAOG 
LDA@RZS; JSRHE7 DB 
LDAERDD; JSRHEBOI 
LDACHAE; JSRHEBD 
LDA@#BA; JSRHEBOG 
LDAGR3A; JSRHEBDI 
RTS 


De eerste regel is de standaard initiatie subroutine. #E7DB is een routine die 
wacht met schrijven naar het commandoregister totdat het vrij is. #EBG9 idem 
voor het parameterregister. 
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GEWIJZIGDE FP ROM 


Ondat me bekend is dat er nog al wat mensen zijn die zich ergeren aan de wat 
knullige presentatie van FP getallen, heb ik gezocht naar een mogelijkheid om 
binnen de bestaande FPROM tot wat meer vrijheden te komen. 

Door een FP getal, namelijk 4€, te laten vallen heb ik de volgende contruktie 
kunnen realiseren: 

Als u in het code byte #2882 een Nul invult dan wordt de inhoud van #2599 
beschouwd als zijnde het aantal te printen decimalen (de punt meetellen). Door 
in het code byte een willekeurig getal in te vulten <> aan nul wordt 
teruggeschakeld naar de bekende FPROM, met dien verstande dat het punt waarop de 
E-notatie wordt ingeschakeld verlegd blijft van @,5 naar plusminus G@.081, Als 
voorbeeld hier een klein programma dat deze zaak demonstreert. 


LOP." “WERKEN MET NIEUWE FP ROM“* 
20C=#2800;C?2=0; REM CODEBYTE DP NUL 
SOFDIM U5GSDIMS12 

40P. ""GEEF 5 FLOATING POINT GETALLEN" 
5OFOR I=l TO 5; IN. $53%GGI=VALS;N. 

BEP. “PRINTEN MET NIEUWE FP ROM“ 
7045=0;@=15 

BB?C=3; REM 2 DECIMALEN PRINTEN 

POF. Tel TO 5;FP. "4001; L5=/5+HB6 LIN. 
180@=8; FP. “TOTAAL "AS" 

1188. 


RUN 

WERKEN MET NIEUWE FP ROM 

GEEF 5 FLOATING POINT GETALLEN 
28.81 

?8.2 

24,65 

”12.98 

219995. 56 


PRINTEN MET NIEUWE FP ROM 


@.B1 
@,‚20 
4,65 
12,98 
19995, 56 


TQTAAL 20013, 48 


Probeer dit maar eens met de oude FPROM. 

Tevens werkt dit afkappen ook met het SIP commande. 
bijvoerbeeld 

Wk 5800 

STR PIW 

P. sli 


geeft 3.14 
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WAARSCHUWING: 


Doerdat er wijzigingen zitten in het gebied #D480 tot #D593 kunnen er problemen 


optreden met BOXEN die hiervan gebruik maken. 


Bij mij is dit tot nu toe alleen van de CALC-ROM bekend 


Deze springt naar #D547 (zowel JMP als JSR ). 
Dit moet gewijzigd warden in #DS3D. 


De twee plaatsen die in de CACL-ROM gewijzigd moeten worden zijn: 


RABS6 47 wordt SD 
#ABAD 47 wordt 3D 


En nu de wijzigingen in de FPROM. 


D498 A9 GO LDA e#00 556 98 

DâD2 85 &F STa #6F D53? 85 78 
D4D4 28 36 Dé JSR HD6BA D539 A2 09 
D4D7 DO 48 BNE #04EL D53B 86 54 
DAD9 A9 58 LDA &#50 DSsD 20 75 DS 
D4ps 28 BD DS JSR #D58D 0544 C& 78 
D4DE 4C 71 D5 JMP #D571 D542 D@ oF 
D4EL 18 25 BPL #D4EB D544 A9 2E 
D4ES A9 2D LDA @#2D D546 20 8D DS 
D4E5 20 8D DS JSR #OSBD D549 AD 02 28 
D4E8 A9 DÒ LDA €400 D54c D8 5 
D4EA 85 &D STA #&D D54E AD O0 28 
D4EC AS 59 LDA #59 D551 85 54 
D4EE C9 77 CMP @#77 D553 Cé 54 
DAFG 58 88 BCS #O4FA DS5S DR ES 
DaF2 20 AQ Dé JSR #D6AG D557 A5 &D 
DAFS C6 60 DEC #&D U55y F2 ib 
DaF7 AC EC D4 JMP #D4EC DS5B A9 45 
D4FA C9 84 CMP @#B4 G550 28 8D 05 
DAFT 96 10 BCC #D50E D56B AS 6D 
D4FE DA dé BNE #0504 D5&2 14 JA 
D58g A5 SA LDA #5A D564 AF 20 
D502 C9 AD CMP &#AG D566 24 BD DS 
D5es 9ò 08 BEC #D5DE D569 3B 

D58& 29 1B DI JSR #071B D56A A2 DU 
D509 E6 4D INC #&D D56C ES &D 
DSDB 4C EC D4 JMP #D4EC D5bE 20 87 DS 
DSE A5 5 LDA #59 D571 A9 OD 
DSi0 C9 84 CMP E#04 D573 DE 18 
DSL2 BĲ A7 BC5 #DS1R D575 AS SA 
DSt4 20 D8 D6 JSR HDED8 0577 AA 

D517 €6 59 INC #59 D578 4A 

0519 DE F3 BNE #D50E D579 4A 

DS51B 58 SEC D57A 4A 

D51C A9 FE LDA @#FF D57B 20 BB D5 
DS1E 2@ 36 D6 JSR #D654 D57E AS 5A 
D52! A5 SA LDA #54 DSB9 29 QF 
D52s C9 AQ CAP HAD D582 85 SA 
D525 BO Dr BCS #D586 D5B4 AC 4E Dé 
D527 A9 41 LDA @#01 D587 C9 QA 
D529 A4 &D LDY #6D D5B9 BO 09 
DS2B 36 BA EMI #D537 D58B A9 59 
Dszo CB 38 Cry è#88 DSBD A4 6f 
D52F BO O6 ECS #D53 D58f 91 52 
0551 CB INY 0591 E& &F 
D552 A9 OO LDA @#00 D595 68 

D554 85 &D STA #6D 


VEEL SUCCES. 


TYA 
STA 
LDX 
STX 
JSR 
DEC 
BNE 
LDA 
JSR 
LDA 
BNE 
LDá 
STA 
DEC 
BNE 
LDA 
BEB 
LDA 
JSR 
LDA 
BPL 
LDA 
JSR 
SEC 
LDA 
SBC 
JSR 
LDA 
ENE 
LDA 
LSR 
LSR 
LSR 
LSR 
JSR 
LDA 
AND 
STA 
JMP 
CMP 
BCS 
ORA 
LDY 
STA 
INC 
RTS 


“7D 
ee 
#54 
#D575 
#70 
#D553 
e# ZE 
#DSED 
#2802 
“553 
#2880 
#54 
#54 
#D55D 
6D 
#D571 
&R45 
#D58D 
#6D 
#DS6E 
@#2D 
*DSED 


eraa 
#eD 
#D587 
e#DD 
#DSED 


#DAAE 
en dA 
#D594 
en50 
#6F 
(852) ,y 
BAE 
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ACORN ATOM RHYTHM BOX 


In het februari nummer van Elektuur stond een drumbox beschreven met interface 


voor een ZX-B1. 

Dat deze drusbox ook aan onze ATOM aan te sluiten is zal niemand verbazen, immers 
onze ATOM kan toch alles. 

En van nu af aan kan die dus ook drummen .… jawel. 

Me sluiten de basis drumprint gewoon op de B-poort van onze VIA aan en wel als 


volgt: ( zie ook fig.i } 






pun is de: 

8D BASE DRUM PIN 18 Pt 6/7 
CD CONGA PIN 9 PL 6/7 
HB HIGH BONGO PIN B PL6/7 
LB LOW BONGO PIN 7 PL6/7 
LC LONG CYMBAL PIN 6& PL6/7 
EL CLAVES PIN 5 PL6/7 
MR MARACAS PIN 4 PL6/7 
SD SNARE DRUM PIN 5 PL&6/7 


Deze verbinding maak je met een stukje bandkabel van ongeveer 25 cm 

Maak deze kabel dus niet te lang omdat de poort ongebufferd is bij langere 
kabels dus b.v. een 749248 er tussen plaatsen. 

Vergeet niet on de aarde van de computer te verbinden met de drumprint.Een 9 
aderige bandkabel zou voor deze verbinding dus voldoende zijn. 


PROGRAMMA 
De hierna koaende listings zijn van de volgende programma's: 


1 MENU-1 
2 MENU-2 
3 DRUM-S1 


Run eerst de progranta's MENU-1 en MENU-Z deze maken twee andere programma's aan 
n‚l DFACEI en DFACE2 welke door het DRUM-source programma (3) worden gebruikt, 
De bediening van het prograana wordt d.n.v de MENU'S verduidentijkt en behoeft 
geen verdere toelichting. 

Het gehele gebeuren wordt in KLEUR op uw scherm getoverd. (als u natuurlijk over 
een kleuren ATOM beschikt 

Het hele gebeuren ís geschreven om in toolkit op WAxxx te plaaten en zal dan 
vanaf #ALGD worden geassembleerd 

Ook de twee MENU'S komen in deze pagina te staan van #ABBB tot #AFFF en worden 
door het hoofdprpögramaa razendsnel naar uw scherm gecopieerd 

Er zal dus in een interpreter moeten worden toegevoegd plus een commando b.v 
DRUM on het geheel coapleet te saken. 

Rest mij om te melden dat u bij opstart in een soort rhythm box terecht komt 
waar u uit 8 verschillende ritme’s kunt kiezen van ROCK tot SAMBA, in de tweede 
pagina waar u net de "N" van next terecht komt kunt u met de toetsen 1 t/m 6 uw 
eigen drum fantasie zijn beloop laten gaan. 

Hierbij wil ik nog melden dat dit programma in een aantal ritme's nog voor 
verbetering vatbaar is maar toch al zeer drum "ECHT" overkomt,voor verbeteringen 
houd ik mij dus aanbevolen. 

Dan wens ik u hierbij veel drua plezier enne ... DENK AAN DE BUREN 
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PL 617 


VIA Bus 


32 SS 6u to 





1BREM MENU-1 

ZOREM MENU'S ZIJN IN KLEUR 
Z0P.$12; #E1=0 

407#8002 = 8 

SOINV;REM INVERT SCREEN 
60F.I = ATOSI;P. 8255 N. 


7BP." ACORN ATOM RHYTHM BDX 1 " 
BeF.1 = OTO35;P. $255;N 
goe,” ” 


100F.1 = OTOSI;P. $255;N. 








118P,$255" 1 = ROCK "$224“ 5 "6255 
120P,$255“ 2 = WALTZ “$254" 6 "$255 
138P.$255" 5 = TANGD "$234" 7 = DISCO "8255 
148P,$255" 4-= SAMBA "“$254" B = RUMBA "$255 
15QF.1 = ATOZIGP. SRFFIN. 

168F.I = GTOS13P.S#DFIN. 

178P, SDE" CHOOSE A RHYTHM (1-8) 2 "$&DE 
188P,$#DF" _ CHOOSE A TEMPO (<->) 2 "séDF 


190F.1 = @TOZ1;P.SEDF;N. 
202P.$2558255"n"$157"next"$25582558255"r"$157"restart"$2556253 
210P. $255"*s" 

220P.$157"stop"$255$255$255 

230#81DD=160 

240P.$21 

25045. "DFACE1® 8800 81FF 

Z6BFDR 1=0 TO &0BD;NEXT 

278P.$6; IME1=#B0 

ORRBEND 
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1OREM MENU-2 

2DREM MENU'S ZIJN IN KLEUR 
zaP,s12;?E1=0 

40748002 = B 

SBINV;REM INVERTEER HET SCHERM 
GAF.I = @TOSS;P.$255N. 

70P.* _ ACORN ATOM RHYTHM BOX 2 * 
8aF.1 = QT035;P.$255jN. 


Sap. 

189F.1 = @TOS1;P,$255;N. 

118P.$255" 1 = BASS "8234" 5 = BASS w# “$255 
124P.$255*“ 2 = CONGA "$234" 6 = SNARE # "$255 
130P.$255" 3 = HIGH BONGO "$254" 7 = MARACAS "$255 
148P.8255" 4 = LOW BONBD "8234" B = SNARE “$255 
150F.I = OTOSA;P. SHFF;N. 

160F,1 = BTOS1sP. SHDFiN. 

17BP. SADE EHDOSE A DRUM (1-8) 7 “saDF 
188P.SRDF" status"st57" "seDE 


190F.1 = OTOSL;P. SRDFEN. 
298P.$255$255$2558255$255$255$255$255"r"$157"restart"$255 
21aPp.s" 

220P.$157"'stop"$2558255$255$255 

230P.$255825582558255 

2407#0188=160 

250?#E1D8=160; 7#8189=140; BIP 1=160; #BII2=160; 7#819T=160 
260°RB1J4=16D; 7NB195=16D 

278?#8196=160; #B197=160; 7N8190=140 

280P.$21 

29D«5.DFACEZ 8999 BIFF 

SAAFOR I= TO 6ABA;NEXT 

S1DP, $6; ?7#E1=#80 

Z2BEND 





1OREM DRUM SOURCE VERSION 1 
2OREM AREN SLOOTWEG 
3OREM REGIO DEN HAAG 
BOREM PROGRAMMA VOOR DRUMBOX 
SOREM UIT ELEKTUUR FEB-1985 
GAREM VOOR GEBRUIK IN TOOLKIT 
TOREM WANNEER U INLINKT OP REGEL 
BEREN 209R JMPRCSTE VERANDEREN IN RTS 
9aP‚s$12' "DRUM source CODE" 
180*L.DFACE1 AD20 
15Gst.DFACE2 ABOB 
120P. “press A KEY" "WHEN drive IS READY"'" 
138LINKAFFES 
188P.“running“' 
15@DINLL (128) „SS (50) 
140F, I=DTO1BO; LL (IJ =-iiN, 
178F,1=0T0S0; SSID =-tEN. 
180F. I=@TO1;P.$21 
190P=#A180 
298 
218:550 
22P\init 
278LDAC27; STARED: LDAERBI; STARDF; LDAGRBO; STAFDE 
ZAGLOACHFF : STAEBER? 
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250LDAER; STAHRBBG; TAY; TAX 
268LDYEHAG; STYHBO\default wait 
279: 5S1LDAES; STAHBDD2; LDYEZ 
28OSTYHEL 

290:552 

SOBLDARADAD, Y; STAHIDOD, Y 
SIOLDAHAEDO, Y; STAHELOD, Y 
2OINY:ENESS2; JMPLL IG 

33Ö:LLIS \keyboardscan 
S4OJSRFE71; BCS LL16; JSR LLI7 
350:LLit 

3&ESTAHBZIRTS 

370:LL17 

ZAOPHP:CLD; JMP#FERI 

390:LL18 

GRBISRLLIS 
410LDAHBL; CMP@RS 1; BNEP+5; JMPLL 20 
420 DARBZ; CMPE#IZ; BNEP+S; SMPLLZI 
83BLDA4B2; CMPEHS NEP+S; JNPLL22 
4AALDARB2; CMPERTA; BNEP+5 3 SMPLL2S 
4SOLDANEZ; CMPEHSS; BNEPAS; JMPLL 24 
460LDARB2; CMP@HTO; BNEP453 JMPLL25 
47BLDA#B2: CMPEHS7; BNEP+S; IMPLL26 
488LDARE2: CMPERZB; BNEP+5; JMPLL27 
8JOLDAHET; CMPERSIJ BNEP +5; JMPLLS7 
SOOLDARB2; CMPER4E; BNEP +5; JMPSSLO 
SiB:LL31 

S20JMPLL 18 

SI@:LLO\base drum 
S4BLDAGHEN ; STA#EBDO 

SSOJSR LLSO 

56ORTE 

57B:lLi\conga 

SEOLDARZ; STAHBECE 

S9OJSRLL5B 

GEORTS 

618:LL2\high benge 

G28L DAE; STAHBBOG 

65OISPLLEAIRTS 

640: LLI\ lem bongo 

650LDAEHA; STAHB300 

&EBISRLLSOERTS 

670: LL4\cymbale 
680LDAEH1 A; STAHBEDD 

69BJSRLLSO 

780RTS 

TI@:LLS\cymbat 

720 DAEH2Ò: STA#BEOG 

730JSFLL 50 

7ADRTS 

759:LLé\maracas 

T6BLDAEHSO; STAFEEGA 

77OJSRLL5B 

78ORTS 

790:LLI\snare drum 

BOALDACHBA; STAHBIOG 

B12ISRLL 54 

B2DRTS 
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BIE: LLE\basaksnarekchii 

B40L DAEHES; STAABEOS 

858; LOXE15; JSRAFBIS 

648; LDA@#42; STAEBBOB; LDXE2s JSRAFBSI; LOARO; STAHBBOO; LDXELD 
B70JSRHFBES 

BSARTS 

898:LL\basekcynbale 
9OBLDAEN1 1; STARBEBD 

F1OJSRLLSG 

$20RT5 

950:LLIO\basekmaracas 
F40LDAEN 41 ; STANBEDO 

95OISRLLSD 

FEARTS 

97B:LLII\klap 

EOLDAREAS; STAHBSDD 

PGOISRLLIE; RTS 

1888: LL12\lowhighbongobaseconga 
1ÖLELDAERGF ; STAFBELG 

1828JSRLL5D 

1038: LL 1J\congaknaracas 

1840LDAE#G2; STARBBAG 

1850JSRLL5G 

186RTS 

187@:LL14\snare maracas 

1980LDAENC4; STAKBEDO 

182AJSRLLIE; RTS 

1180:LL68\chi 

1110, DA@#40; STARBBOO 

112OLDXERS; JSREFB8I; LDAED; STANBOGGS JSRLLSO; RTS 
1130: LLói\baseksnare 

1180 DAE4B5; STAHBBOD; JSRLLSA 

115@RTS 

1168: LL62\roffel 

117@:LL65 LOYERFC;STY#B6 

1180:LL64 LDAE#85; STARBEUD; LDX22; JSRF BEI; LDAEG 
1190STANBBAG; LDXEL; JSRAF BOS 

1200INC#86; BNELL64; RTS 
1210:LL66\troamel 

1228:LL67 LOYERFI;STY#B6 

1230:LL68 LDA@#BS; STARB80O; JSRLLEG; LDAEG 
12405TARB80A; JSRLLOE 

125BINCHAG; BNELLAE; RTS 

1268: LL5@\wait loop 

1270 0AEAFT; STANO1 

1288LDA#AS; STAGE 

129AJSRLLIS 

1388:LLSt LOYEG 

L53 INY:BNELLSS;; INCHSO; BNE LLS53; 
L54 LDYeB 

1330:LL5S INYsBNELLSS; INCKSL; BNELL SS; LDACO; STAKBEOG 
134ORTS 

1556: LL88\wait loop klein 

1348L OASES; STAGER 

1378:LL83 INC#BO;BNE LLOI;JRTS 
1580:LLE\matt Loop aiddel 

1398LDAMBS; STASOB 
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140AJSRLLIS;LOYEG 

1418: LL91 INYsBNELL91 

1420:LL92 INY:BNELL92 

1438: LL95 INCHSOGBNE LL9Z;RTS 

1448: LL 22\beat 

1450LDAENZI; STARB17C 

144DJSRLLE1; JSRLL6B; JSRLL 13; JSRLL61; LOXES; JSRHFB8S; JSRLLÓN 
1470 JSRLL6D 

148DJSRLL13s JSRLL6I sj; LDKEZ; JSRHFBBIs JERLL6 13 JSRLL6D: JSRLLIJ 
1490 JSRLLEL; LDXESs JSRHFBOI; SSRLLA IJ LDKES; ISRHFBES 
1500JSRLL&1; JSRLLI 3; JSRLLS 

1512)}SRLL80 

1520JMPLL20 

1530:LL21\waltz 

1540LDAËRI2; STARB17C 

155BJSRLLA; JSRLLG; JSRLL 133 JSRULO; JSRLL 6; JSRLL 
15&0JMPLL21 

1570:LL22\tango 

1588LDAENII; STAHBI7C 

159QISRLLO; LDXES; JSRHFBBS 

1600JSRLLE;LDXES; JSRHFB8I 

161QJSRLLEILDXES; JSREFB8S 

1620JSRLLO 

1620JSRLL62; IMPLL2Z 

1640: LL 25\sambda 

1658LDAENE4; STARHL7C 

16&UJSRLLE: JSRLL6A; JERLL6O; SSRLLE;LDXES; JSRHFBBS; JSRLLO: JSRLL6B 
1670JSRLL&G; JSRLLS; JSRLLAG; ; JMPLL23 

1688: LL24\swing 

169ALDAENIT; STAHBL7C 

1700JSRLL15s JSRLL13; JSRLLIS 

1719JSRLL13; JSRLLAS 

1728JSRLLOs JMPLL24 

1738:LL25\march 

174GLDA@H36; STAHBIJC 

1750JSRLL62;LDX@ID; JERHFBES 

1760JSRLLI0; JSRLLIO 

1778JSRLL10; JSRLLID 

1?8GJSPLLEZ;LDX@1D: JSRAFBAZ 

179GJSRLL1G; JSRLL9D 

1808JSPLLiO; JERLLID 
181GSSFLL 46; ;LDXE10; JSRIFB8T 

1820JSRLL10; JSRLL9G 

185OJSRLL IG; JSRLL?G 

1840 JMPLL2S 

1B58:LL26\disco 

18660LDAENS7; STAHBL7C 

1870JSRLLO; JSRLLSD; JSRLL7 
1B8GISRL LA: LDXE2; JSRHFBEI 

1892JSPLLE; JSRLL5O 

199DISRLLI 

191OJSRLLSOs JMPLL26 

1920: LL27\rumba 

19TOLDAERTE; STAHBL7C 
194BISRLLO: JSRLLSO; JSRLL 1; JSRLL2 

[95CISRLL4&B: JERLLSO; JSRLLAD; JSRLLSD; JERLLD; LDXCA; JSRHFBBS; 
9LOISRLLSAs JERLLB; JSRLL SB 

TELDIC4; JSRAFRBS; JSRLL 18 

GSEISRLLSG 
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199ALDXE4; JSRAFBBS; JSRLL IO; LDX@4; JSRHFBO3; ; JSRLLSO; IMPLL27 
2000: LL3S 

ZO18ISRLLIS 

2828: LL 32\snelter tangzaam 

203 DANE; CMP@RZE; BNELL 33; CLC; LDA#OD; ADCENS; STAHBO; STAHGS 
2040JSRNFBO2; LDAEHB; JSRHFFF 4; LDAGKE; JSREFFF4 

2050RTS 


2048: LL33 
207@LDANE2; CMPEN2C; BNELL 345 CLO; LOANEA; SBCENS; STANED; STANDS 


2080JSRHFB02; LDAERD; JSRHFFF 4; LDAGRE; JSRHFFF4 
28PERTS 

2188: LLS4LDANB2; CMPERT2; BEGLL 36; RTS 
2118:LLJ6JMPSSD 

2128: LLS7JSRHFDLA; JSRUFD69; JMPHCSSE 
2138: SS10\solodrums 

21406 DYeB 

2158: SS12 

2160LDAKABIE, Y; STAHEBEB, Y 
2178LDA#ACHE, Y; STARB1OO, Y 
2188INY;BNESS12 

2190:5811 JSRLLIS 
2200LDA#82; CMPERS1; BNEP+5; JSR5520 
2210LDAN82; CMPENS2; BNEP+S; JSRS521 
2220LDARB2; CMPERSI; BNEP+5; JSRS522 
2250LDANEZ; CHPERSA; BNEP+5; SSRSS523 
2240LDARE2; CMPERSS5; BNEP+5; JSRSS24 
2258LDAHA2; CHPENIH; BNEP +5; JSR5525 
22681 DARB2; CMPENS7; BNEP+S; ISRSS26 
2270LDANB2; CMPENSB; BNEP+5; JSRS527 
22801 DANEZ; CMP@NSS; BNEP+5; JMPLLI7 
2290LDA#BZ; CMPENS2; BNEP+5; JMP5SO 
23UOIMPES 1 


UIT DE CLUBWINKEL 
MINIESCHAKELKAART 


DE GOEDKOOPSTE MANIER OM 
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eRIJS FUL. 14-00 


LEVERBAAR ZOLANG DE VOORPAAD STREKT 
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2310: 5520\base 
25ZALDAERB1; STA#EI92 

2320 DAEL: STANBEBE;LDKES; JSRHFBBI; (DAER; STAHEHIO; RTS 
2340: S521\cenga 

25S0LDAEHB2; STA#BIJ2 

236MLDAET; STAHREDA;LDKEID; JSRHFRBI;LDAED; STAREBDO,RTS 
2572:5522\high bongo 

2ZBBLDAEKRI; STARB192 

Z39ELDALCA; STA#BBOD;LDXEL1O; JSRHFRAI; LOAED; STAHBBOO; RTS 
2402: 5525\low bongo 

2A1ELDAEHB4; STASD192 

2420L DAEB; STARHEBD; LDX@1B; JSREFBBI;LDACD; STANBEOG; RTS 
2450: 5524\roftel base 

2440LDAEHBS; STAKBLI2 

2450: 5524 LDYERFO;STY#B6 

2440: 5535 LDA@NZI; STAKBBAO;LOKE2; JSRHFBES;LDAER 
247D5TA#BHOB;LDXEZ; JERHFBET 

24A0INCHH6; BNELL 34; RTS 

2499:5525\roffel snare 

2500 DAERB&; STARB192 

2510:S530 LDYERFC;STYKBb 

2528:5S31 LDAEHB&; STA#BEDD;LOXE2; JSRHF BAI; LDAEG 
2530STA#RBDD;LDXE2; JSRHFRBS 

2580INCHB6s BNELLZI; RTS 

2558: 5526 \maracas 

254&0LDAEHR7; STAHBIJ2 

257OLDAEH40; STAKBEOA; ;LDXES; JSRHFBEI;LDAED; STAHBEDD; LDXEZ 
25ROJSRHFBBIJRTS 

2599:5S27\snare 

2630LDAEHBE: STAHB19Z 

2610LDAEHES; STAHRABE; LDXE10; JSRAFBBS; LDAEG; STAHBBAA, RTS 
26281 

ZEZBNEXT I4P. té 

2&4BEND 
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DE A/D-CONVERTER. 

fig. 1 - Ib, 

Het omzetten van een analoog signaal (uit bv. een cassetterecorder) naar een 
door de computer herkenbaar digitaal signaal gebeurt in onderstaand schema door 
een Ferranti-IC, de IN 427E-8. Met schema is van Rob van Dort uit Haarlo (zie 
ACORN NIEUWS april 1984) en is door mij op print gezet en uitgetest. Door het IC 
4518 weg te laten en een jumper aan te brengen tussen pen 1 en pen 3 komt de 
klok van de ATOM ongedeeld op de schakeling te staan, en dit bleek de IN nog aan 
te kunnen. De specificaties vermelden een mogelijke kloktrequentie van minimaal 
980 kHz en ‘typical’ van î Miz. 

Het IC is nu ín staat om elke 9 microseconden geen digitaal woord van 8 bits, 
afgeleid van een analoge spanning op de ingang van BV tot 2.55V, op de uitgang 
te zetten, De spanningsdeler in het schema brengt de ingangsgevoeligheid op -5V 
tot +5V, Bij -SV wordt 9299 0000 en bij +SV 111 1111 geproduceerd. 

Een klokpuls van hoog naar laag start deze conversie en deze wordt betrokken van 
de CA2-poort van de VIA. Het digitale B-bits woord wordt toegevoerd aan de 
A-poort van de VIA. Een eenvoudig machinetaal programma kan de opgehaalde DATA 
in achtereenvolgende plaatsen in het geheugen zetten. 


zINIT;LDA@0;STA#BBOS maak de A-poort ingang 
STA#BO; TAY maak het lage byte van de adrespointer 
en het Y-register 8 
LDA@#SB; STARE 1 zet het hoge byte van de adrespointer 
op pagina #58 
LDAE#A;STAKBEAC programmeer de VIA zo, Gat er op de 
CA2-poort een negatieve klok puls 
kont bij elke lees/schrijtopdracht 
sMAIN; LDA#B801; STACMBS) ‚Y legs de A-poort en plaats de DATA 
op adres aangegeven door 
de inhoud van geheugenplaatsen 
%80 (lage byte) en #81 (hoge byte 
INY;BNE MAIN verhoog adres met 1 en test op 
Y=waarde van #FF+1 
INC#81;LDA#EI;CMP&#88 verhoog hoge byte adrespointer met 1 
en test op eindadres geheugen 
BNE MAINGJMP #CS5SB indien bereikt dan terug naar BASIC 


De belangrijkste cyclus is: 


LDA#B8O1; STA(#AD) „Ys INY;BNE MAIN 
4 6 2 5 (getallen ín microseconden 


Na elke leesopdracht (LDA#B82I) geeft de CA2-paort een laagpuls af en start de 
A/D-converter met het samenstellen van een nieuw woord. De snelste conversie 
bedraagt dus 15 microseconden. Bij een schakeling met DMA (direct memory access) 
wordt geen machinetaal programma gebruikt maar wordt het beschikbare geheugen 
direct na het verhogen van de adrespainter met de DATA gevuld. Op die manier is 
net de ZN 427E-8 de maximale snelheid van 9 microseconden per meting te halen, 
Met 15 microseconden scoren we dan niet slecht. Elke seconde worden er nu zo’n 
65.900 metingen verricht, Een geheugen van 16 kbyte is dan in 8.25 sec 
volgeschreven. Met een vertragingsius zijn er langere vpneem-tijden mogelijk. 


DE D/A-CONVERTER. 
f1g 2 - 2. 
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Het omzetten van een digitaal- naar een analoog signaal gaat neg eenvoudiger (en 
geedkaper). Hiervoor gebruik ik de ZN 426E-8, eveneens een Ferranti-IC, dat in 
staat is binnen 1 micreseconde sen overeenkomstig analoug signaal te produceren 
tussen @ Ven 2.55 V, 

Deze spanning wordt aan een instelbaar versterkertraple toegevoerd en vervolgens 
aan een geluidsversterker. 

De uit het geheugen opgehaalde DATA wordt nu aan de B-paart aangeboden. Door een 
wachtlus in het programma te zetten kan het signaal vertraagd of versneld 


weergegeven worden. 


GRAFISCH WEERGEVEN. 
Hee het signaal opgeslagen wordt kan zichtbaar gemaakt worden in de hoogste 


grafische mode door hiervan een grafiek te laten tekenen. De Y-coordinaat wordt 
gelijk gemaakt aan de inhoud van geheugenplaatsen en er warden verbindingslijnen 
getrokken tussen de opvolgende punten. Het hier speciaal vaor geschreven 
machinecode programma doet dit 5X snelier dan met BASIC FLOT epdrachten. 


HET PROGRAMMA, 

Het assembler gedeelte omvat 4 blokken: 

…‚v.Ben 22 microseconden/byte A/D converter 

..…een D/A converter 

vs….vêen ‘snelle’ plotter 

‚veen 15 microsecanden/byte ultra snelle A/D converter 


Om de opneem en weergavetijd te kunnen beinvloeden, is op regel 159 en 140 een 
vertragingslus ingebouwd, De waarde van het X-register maal 7 microseconde 15 
dan de vertraging/byte, Deze waarde wordt vanuit het P-CHARME basic gedeelte 
aangepast in de procedure SPEED 


Op regel 748 kan een eigen gratische=dump routine gelinkt worden. (Hier 
JSR#1448) 


DE TRANSISTOR TRACER 


tig. 3-6 
Naar een artikel uit Digital&Micre Electronics (aug/sep/1984), 
1... De tar-tracer wordt bestuurd door de A-poort. Het vitgaande 


spanningssignaal wordt toegevoerd aan een digitale vaìtmeter die uitgelezen 
wordt door de B-pourt, (zie A‚N nov,1983, artikel van Rudi van Drunen). De 
A-poort wordt met stapjes van 1 verhovgd van 8 tot 256, Deze code wordt 
toegevoerd aan de D/A-converter (ZN 426E-8), die er een spanning van B t/m 2.55 
Valt van maakt, Een OP-AMP versterkt deze spanning tot 0 -14,68 Vv, in stapjes 
van 8,84 V, welke toegevoerd wordt aan de Collector/Emitter van de test-tur, 
terwijl een constante stroom de Basis stuurt. 

Deze Basis-strcam kan met 2 keuze-schakelaars op diverse niveaus ingesteld 
worden. De stroom kan met 53 ingesteld worden op resp. 5, 18, 15, 28 en 25 
micraampere, Met 52 wardt deze stroom vermenigvuldigd met een factor van resp 

B.S, 1, 2 of 5. 

De Coltector-straom wordt voor Collector-spanningen van 8 t/m 18 V omgezet in 
spanningen van ® tot maximaal 10 Vv, 

De figuren Ja - 7d tijn voorbeelden van het programma analyse 
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Krekel-fragment 
15 usec. per meting 
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PROGRAM ANALYSE 

REMARK zero-page:#80-#88 

REMARK data-storage:#5800-#8009 
DIMLL30;F. 1=BTO3OjLLISTIJNEXT 1 
P‚s21 

EF. 1=0T01;P=#5600 


18 
20 
30 
40 
58 
60 
70 
8O\22microsec a/d 

90: LLALDAED; STA#BELS; STAKBO 


108 TAY;LDAE#JB; STAREL 
118 LDA@#A; STA#B8BC 
120:LL1LDA#B88L; STA(#BD) ‚Y 
150 LDXE1 

140:LL25DEX; BNELL25 

158 INY;BNELLI 

168 INC#81;LDA#81 

178 CMFE&#BD; BNELL 1 

188 RTS 


190\digital to analog 


200:LL2LDAERFF; STARBEB2 
218 LDAEA; STA#BD 

220 TAY;LDA@#58; STAHB1 
230: LLILDA (#80) ,Y; STAHBBDO 
240 LDX@L 

250:LL26DEX; BNELL26 

268 INY;BNELLS 

278 INC#81; LDA#EL 

280 CHPAKED; BNELL 3 
290 RTS 

300\tfastplot 


FL@:LLALDAENIA; STANOL 
328 LDY&a; STY#BD 
IO: LLSLDAERBD; STAHBE 
548 LDAEA; STARBT; TAY 
35D:LL6STA(#B7) ‚Ys INY 


368 BNELL6; INCHA8 

378 LDX#88; CPX@#FE; BNELL 6 
588 LDA@L; STA#SE 

390 LDA@#F@; STARBADO 


490: LLILDA (#89) ,Y; SBCE#20 

410 STA#B5; STA#SCHSTYNSA 
420: LLEINY;LDA(#8D) ‚Y 

4356 SBC@R2D; STAFBS 

448; LLIADCHBS; BCSLL 10 

450 LSRA; STA#B6; JMPLLI1 
86Ö:LL1GRORA; STARB6 

478: LLi IL DARE; CMP#B5; BCCLL1S 
480:LL12JSRLL22; CMP#86 

490 BEGLLIJG DECRSC; SMPLL 12 
500: LLISINCHSA 
S18:LL14JSFLL22; CMPRBS 

528 BE@LL1B; DECRSC; JMPLLI4 
S3Ö:LLISISRLL22; CMP4EG; BELL 16 
548 INC#SC; JMPLLIS 
55@sLL 16 INCHSA 
S&@:LLI7JSRLL22; CMP#B5 

578 BEGLL 18; INCRSC; JMPLL 17 
SOB:LL1BLDARES; STAMB3; STA8SC 
598 CPYANFF; BNELLG 


EBB: LLIGJSRAFFES 
618 CMP@#5S; BEOLL2S 
628 CMPE#SO; BEGLL 21 
630 CMP@#4E; BEGLL ZO 
640 CMP@#47; BELL 24 
658 BNELL 19 


66B:LL20INCHEI;LDAHBI 
67a CHPE#EB; BEBLL23; JMPLLS 
O:LL21DECHE 1; LDANBL 
8 CMP8#37 ; BEOLL 23; JMPLLS 
708:LL22TYA; PHA; JSR#F7BU; PLA 
718 TAY;LDA#5C;RTS 
728: LL2IJSRAFDLA; INPECSSB 
73@:LL24JSR#1444; JMP#C5SB 
780\l5microsec a/d 
75@:LL27LDAEG; STAHBBDS; STAH8D 








768 TAY;LDA@#58; STARE 

778 LDA@#A; STA#B8OC 

788: LL28LDA#BRBI; STA (HBO) „Y 

798 INY;BNELL28 

Ba9 INC#8i;LDA#81 

810 CMP@#8D; BNELL28 

820 JMP&CSSB 

GIDI; NEXT IjP.$6 

840 

850 PROC MENU 

860 P‚s$12” anaìoog-digìitaal v.v."' 
878 P‚"8... STOPPEN" 

888 P.“1...INLEZEN ANALOOG SIGNAAL "" 
B98 P."2,..GRAFISCHE WEERGAVE" 

see Pe,” MET HKARDCOPY MOBELIJKHEID"* 
918 pt (EXT (p)REVIOUS"* 
920 P (g)RAPHICS (5) TOP!” 

938 P „WEERGAVE DIGITAAL SIGNAAL" 
940 P .INLEZEN 15 MICROSEC/BYTE"" 
958 Pp.’ keuze @,i,. «……4"' 

360 CHOICE 

378 PEND 

280 

998 PROC CHOICE ,K 

1008 DO INKEY K 

1814 UNTIL K>=CH"B" AND K<=CH"4" 

1820 CASE K-CH"Q" OF 

18580 END 

19486 1> 14 208=AFEGAFESS; SPEED (0) 
1458<2> LINKLL4 

10585 SPEED (2) 

18784) 18 20B=HFEGSFESS;LINKLL27 

1080 CEND 

1898 PEND 

1188 


1118 PROC SPEEDS) ‚A 
1129 IF S=0 A=t5617 
1120 IF 5=2 A=#5658 





1148 P.$12 

1150 Le vertraging” 
1168 Pt 2 4 B 16 32" 
1170 P.'A B C D E en 
1183 DO INKEY Kk 
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18 REN tor tracing program 

20 REM DVM: B-PODRT 

30 REM D/A:A-PDORT 





1198 UNTIL K>=CH"A" AND KC=CH"F" 
1200 CASE K-CH"A" OF 
121850) DA=1; LINK LLS 








12201) PA=4; LINK LLS 48 - 
12302> _ ?A=1O;LINK LLS 50 DIM LLS 
1230655 33 LINK LLS 60 P.$21;F. 1=0T01;P=#2800 
12504 4> B;LINK LLS 7e 
1246052  ?A=IB;LINK LLS 80: LL2LDAE#60 
1379 © CEND 90: LL1BIT#B800 
1288 PEND 188 BEGLL1;LDAE#GB 
1290 118 _ BIT#BSO; BNELL2 
1389 REMARK main 120 LDA#BEOS 
1510 DO 150 _ AND@#OF;STA#ID 
1520 MENU 140: LLALDAE#40 
1330 U.G 150:LL5BIT&BE0D; BEQLLS 
1340 END 168 LDAENAG; B1T45500 
NEL L 4; LDAG/ 
enderdelenlijst TORTRACER: 150 terne 
RI 1598 C1,2,3: 10EN 190: LLeLDAEN20 
2,6 156 C4 zi MU 200: LLSBIT#B800 
RI,3 :Z2K TI, vBrBC557 210 BESLLS;LDAGACE 
R4,21 vern 5 Oe 220 _ BIT#BA9B; BNELL6 
R7,8 14 : 230 _ LDA#RBBU;ANDEROF 
RI,17 :10K PL zaK7 240 STAB9I2IRTS 
RIB :40K: F2 :18K 2501iN.;P.$6 hd 
‚ sN.zP. 

RiL :510K IC'S :ZN426E-B 260 
R12 1 290k 3X 741 278 REN t 
RIS :100K Si _ :2X DUBBELOM 280 CLGARG ieule 
Ria z5ik 52 24 STANDEN 298 FOR 1=20 TO 250 8.25 
R15,16:4KB 55 :5 STANDEN 300 MOVE1, 0 

pn EDENS- : 
EE BU1,2 :DINS-189 Sie pLorsit,1s0 
Kd 320 NEXT 1 
20 16 330 FOR J=20 TO 190 8.20 


Rai wordt los van de print See wenn gei fL0Ts,s0 

apgenomen. Als de TORTRACER 368 REM set-up 

gebouwd wordt kan deze tegelijk 370 BEUS=EFF; U=0;MOVED,O 
als D/A converter voor de 380 P.s7 K + 

geluidsweergave van de opgenomen 390 LINKSFFES 

signalen gebruikt worden. Zet Si 440 

dan in de stand PNP en zet een R 418 REM trace 

van 15K tussen Een C van de 420 FOR J=0 TD 4 

PNP-bus. &fregeling: stuur de ZN 530 FOR 1=0 10 256 


volledig uit met 1E11 1111 en 449 5. = 
regeì PL af op 10V op de E van de 450 Den, ï 
PNP-bus. Zet S1 op NPN en regel P2 2800 

NE op de uitgan 460 U=(7#I01D0) 44791410) +2492 
af op p gang. 470 PLOTS,I, (U/5 
enderdelenlijst AD-CONVERTER: dee hdd i 
Pi‚2 tIK  C1,3 21 MU 500 _ MOVEG, A: LINKRFFES 
F3 :22K  C2 718 MU 518 NEXT J 
ke ks 5: 4 E instan 320 P.4737 

5 17K . 2 530 . 
Pé 1398 Pi,2 +:10K(10-SLAG) LINK&FFES;6OTO 270 


KR7,8 :10K IC'S :4518#,40i1 
4017,1N427E-B 
Pen 12 en 13 van de 4011 moeten 
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P—-CHARME SCHAKELSOFT DEEL 2 


Met da konst van P-FUN (A.N, 3-7) voelde ik mij genoodzaakt de schakelsoft, 
eveneens in A‚N. 3-7 gepubliceerd, aan te passen om ook gebruik te kunnen maken 
van de funktie-uitbreidingen. Het geheel is dermate kompakt geworden, gat zowel 
de vchakelsoft aìs P-FUW tesamen slechts 252 bytes bedraagt en derhalve in een 
pagina past. 

De schakelsoft werkt als volgt 

Allereerst wordt er getest of er een enrom gelackt staat (BITASFFF). Is dít niet 
het geval Jan wordt P-Charme voorgeschakeld (in romvoet 7) en daarin wordt er 
gekeken of de te interpreteren opdracht afgehandeld kan worden. Ie dit niet het 
geval dan springt de errarhandler van de P-Charme terug via een indirekte juep 
op B3EE naar adrev 81198, Daar wordt altijd gesprongen naar label LLS, waar er 
wordt onderzocht welke fout is ontstaan. Er zijn nu drie mogelijkheden: 





- ERROR 94: nu gaat de schakelsoft in werking treden: eerst worden de boxen 
afgezocht; wordt het statement daar niet gevonden dan wordt er vervolgens 
gesprongen naar een interpreter op #1102. 

- ERROR 2%: dan wordt er via P-FUN naar een funktie gezocht. 

= indien er een andere error Dan 94 ot 29 gevonden wordt en als het statement 
ef funktie niet gevonden ís, wordt er naar de errorhandier van de P-Charne 
gesprongen. 


De schakelsoft is wat sneller geworden, omdat de zeropage-adressen #92-499 niet 
neer opgeslagen worden. Dit omdat de adressen #99-#97 alleen tijdelijk gebruikt 
worden door P-Charre en de adressen #9A en #99, gebruikt als datapainter voor 
READ en DATA, in de praktijk niet door andere statements gebruikt (hoeven) 


worden. 
On het geheel te initialiseren moeten de volgende opdrachten gedaan worden: 


MIEEED MEIEFZOI 7&3FB=0B3 7aSFAxbegin funktietabel 


Deze apdrachten kunnen tn een INIT-progrataa geglaatst worden of in de 
resetroutine. 


Dient er nog opgeaerkt te worden, dat alle funktie-uitbreidingen, ook díe in 
P-Charae staan, niet in direkt mode gebruikt kunnen worden, De reden hiervan is, 
dat tijdens een BASIC-programma, dat P-Charme gebruikt, de breakvektoren 
($202,#203) veranderd worden. In direkt mode wordt iedere keer als erf een 
(return) gegeven wordt daar de BASIC-raa de Geeakvektor op defautt (£C9DB) 
gezet, Het is dus niet mogelijk om zonder meer in direkt mode error 29 af te 
vangen. Wel kan er in de F.P.-ron het een en ander veranderd worden, maar 
daarover een andere keer, 
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18 REM Schakelsoft P-CHARME en P-FUN 
20 REM versie 2,0 

30 REM basisadres: #1800; 

48 REM schakelbyt: HOFFE 

50 REM uitbreiding: #1192 

GD G=#1B00;DIM LL1G 

78 PRINT $21 

88 FOR I=G TO O+#FC STEP 4; !E=0; NEXT 
90 FOR 1=0TO18;LLI=0; NEXT 
180 FDR 1=0TD1;P=0+2;L 





110:LL0 

120 \start 

138 BIT&9FFF;BVS LLS 

148 \kijk eerst in p-charme 


158 LDAG#AD;STA#Z03 

168 LDA@#DS; STA#ZO2 

178 JSR LLI2;DNE LL2 
18@:LL! 

198 STARBFFF 

208 Ll DA#ADDD; CMPEHAE; BNELLS 
219 LDA#ABB; CHPEHBF ; BNELLS 
220:tt2 

238 JMP#AQGZ 

244: LL3 

258 JMP#C5S8 

268: LL4 

278 \ga schakelen 
288 LDAELL7Z256; STA#292 

290 LDA@LL7/254; STA#205 
388:LL5 

318 LOXERFF;TXS 

32D DECH9FFF; LDANSFFF 

358 BPL CLI 

348 JSR LLI2 

350 LDA&R4F;STANZO2 

368 LDAEKAC;STA#205 


370:LLó 

380 \spring naar #1182 
398 JMP #1182 

889: LL7 

410 \error bij schakelen 


420 PLA;PLA;STAG 
50 CMP@RSE;BEGLLS 
448 JSR LLI2 


458 \terug naar pr-charme 
460: LLB 

470 JMPHACAF 

488: LLS 

495 \gelockte eprom 


50% LDA@LL13/256; STAR202 
518 LDA@LL1D/256;STARZOI 
528 LDANGFEF;BNE LL1 
STde:lL 1 
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540 \error bij gelockte eprom 
558 PLAsPLA;STA2 

548 CHPENSE; BNELL LL 

570 LDAE#CI;STA#203 

580 LDA&#DE; STA#222; BNELL6 

SIA: LLL 

608 JMP#C9DE 

618 \subroutines 

62011112 

630 LDAE7;STARGFFF; STARBFFF; RTS 

648: LLIS 

658 \error p=charmes JMP (#3EE) 
648 PLA; PLA;STAA 

678 CMPENSE;BEGLL4 

582 CMPARID;BNE LLB 

693 \error 23 (start p-fund 
780: LL14 

718 TAY;PLA;STA890; LDX8#00 

728: LLIS 

738 LDAMFI,Xj PHA; INX 

740 CPXE@NQ7;BNE LLIS5;STY#97 

750 LDYERRIJSTY#IIJ LDAENAA 

768 STARI4; ISRHABEA 

778 JSR#A5SZB;BCS LLlé 


788 \functioncall 
798 JMPHABIC 

Er \extra functions 
B18:LLi& 


B20 LDA#IFA;STARI2 

830 JSR LLI7;LDYENDI; JHPHABO2 

840: LL17 

BSB LDYERDOJSTYKII 

868 LOANTZ; STAMIA 

870 LDA(C#FI) ,Y;STANI2; INY 

BEB STYAI3;DEY;LDA (RIT) ‚V 

BIB CMPEREI;BNE LLIS; INY 

908 LDACHFI) ‚Ys CMPENC7 

G1D BNE LLIE;JSRRABEA;JMP LLI7 

920 \nat found 
r3@:LL 18 

940 LDY#F7;STYHOE 

950 JSRRADCG; INX; INX; TXS 

968 JMPRACAB 

STO NEXT 

987 d=0;R=P 

IIB IQ=#40; (041) NBF 

1088 P=G+#100;C;BEG LL1J; 1 

1018 PRINT $6’"SCHAKELSOFTROUTINE: #"%D+4"-#"ER GEND 


1428 in initialisatieprogramma het volgende opnemen: 
1038 ?03EE=O; IEF =NI1 

1849 ?43FB=#B3 

1358 7 egin funktietabdel 
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ERROR 2 


Er werd altijd ap onze regio-avanden gespreken, dat alleen ERROR 94 door 
verandering in floating-point rom afgevangen kon worden. Daardcor kunnen we door 
de aangebrachte driewegwissel in de FP-rom via schakelsoft naar statements gaan 
zoeken. 

Maar aak ERROR 29 kan op een soortgelijke wijze afgevangen worden. Als bewijs de 
onderstaande STEP-routine met een nietbestaande funktie ONZIN: 


YSTEPSC2CF ,#CAZ4 

DA=ONZIN 

CA24:JSR #C424 AF B1 B 2i FS 
C424:LDA #D898 AA Bt 83 Al FS 
C427: CMP @#AA AA Bt 83 23 F5 
C429:BNE #C463 AA B1 B3 25 FS 
C42B: LSR 55 81 23 20 F5 
C42C: CMP #DEBL 55 B1 B3 23 F5 
Ca2F:BNE #C463 55 @1 O3 25 F5 
C45t:LDY #5E 35 01 B2 21 FS 
C433:RTS 55 B1 B2 21 F7 
CA27:BCC #CAIB 55 Ot 82 21 F7 
CA29:JMP (#D094) 55 BI 42 21 F7 


Di5E:STY #03 55 B1 02 21 F7 
DI&D:JSR #DAEC 55 @1 82 21 FS 
>(escape) 


Nu wordt er in de tabel van de FP-rom gezocht en als er niets gevonden wordt, 
gebeurt er het volgende: 


>STEPSC2CF ‚#D29& 

>A=ONZIN 

D296:BIT #75 F6 Ui B2 EQ FS 
D298:BMI #D2C0 96 Ot 92 EQ FS 
D2CO: JMP #CALIB 9% B1 02 EU FS 
CA1B: BRK 

ERROR 29 

> 


Als de JMP #CAIR op adres #D2C8 nu veranderd wordt in een jump haar een adres, 
waar een routine staat, die funktie-uitbreidingen afloopt (bijv. P-FUN), dan is 
het ook mogelijk om de extra funkties in direkt mode te gebruiken. Bovendien 
wordt de BASIC er zeker niet trager door. 
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\ SCREENROM 


De auteur is A.E.Knowles, 15 Belgrave Ave, Flixton, Manchester. 
Deze roa is gebaseerd op een programma van computer consept 


Hieronder volgt een vrije vertaling van de gebruiksaanwijzing 
die bij deze rom onmisbaar is, 


Inleiding 


Deze roa biedt de navolgende mogelijkheden. 

= 32 of 42 tekens per regel met 24 regels op het scherm, 

= witte of zwarte letters, 

= tekstwindows, binnen de schermafmetingen, 

= in elke acde (CLEAR 0-4) ís tekst mogelijk (in “lagere node dan 4 uiteraard 
att “grotere” letters), 

= u kunt zonodig uw eigen letterset maken (default is een standaard set upper- 
en lowercase (grote- en kleine-) opgenomen), 

= auto repeat op alle toetsen, 

= load en save (398 en 1298 baud) met zichtbare indicatie, 

= uitvoer naar het scherm te onderbreken met CTRL+SPACE, 

= het comaando COLD (LINKSAFFD) “verplaatst” de standaard letterset naar #2908 
tot 828FF en verzet de tekstruinte pointer naar #2C09, wist het scherm en 
selecteert graphicsaode 4, 

= het commando WARM (LINKGAFFS) werkt nagenoeg hetzelfde de letterset op #2900 
blijft echter ongewijzichd, 

= #88 tot #8A worden gebruikt, (conflicten niet uitgesloten), 





Het cassette operating gebeuren 


Met SLON en FAST (LINKMAFF9 c.q.HAFFG) wordt gekozen tussen 30Q en 1202 baud. De 
ron behoeft voor het gebruik ván deze routines niet te worden geinitialiseerd. 
In de rechter bovenhoek van het schera is het vertoop van het proces te volgen. 
Bij het beeindigen hoort u een paar piepjes uit de luidspreker. Bij gebruik van 
het DOS blijven de vectoren #20C - #29F ongewijzigd. FAST en SLOW gebruiken de 
vectoren 9214 — 217. Gebruik dus deze beide commando's met overleg. 


Auto repeat 


Na ongeveer 8.5 sec. worden alle toetsen net een snelheid van ongeveer !Q tekens 
per sec. herhaald. REPT versnelt dit nog aanzienlijk, 


CoNTRLolled output 


Het indrukken van CTRL+SPACE stopt de uitvoer naar het scherm bij het eerst 
volgende “nieuwe regel" teken (#BD) tot CTRL+SPACE opnieuw worden ingedrukt 

Tijdens die pauze kunnen control commando's worden ingetoetst (bijv. CTRL+G = 
inverteer het tekstwindow). 
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De gebruikelijke screen-edit mogelijkheden van de ATOM aet COPY en de 
cursortoetsen kunnen worden uigevoerd, Uiteraard slechts indien de geselecteerde 
mode (32 of 42 t/regel, zwart of wit) gelijk is aan de mode waarin het file naar 
het schera ís geschreven. Niet herkende tekens (t.g.v. overlappende graphics of 
een niet passend gekozen mode worden in spaties osgezet. Terwijl tekens groter 
dan 4#8 pixels in gecomprimeerde mode (42 tekens) niet worden herkend in die 
aode, 


Control codes 


SCREENRDM zendt op de gebruiketijke wijze control codes (PRINT$S bijv.) naar de 
uitvoer op het scherm. Someige control codes dienen onaiddelijk. gevolgd te 
worden door een of neer paraasters. (bijv. PRINT$31$24$12). Die control codes 
die geen extra parameter behoeven kunnen worden gebruikt in direct mode 
WCTRL+key). Er zijn geen ERROR meldingen na bijv. CTRLSL CRET). Hieronder volgt 
een lijst van de mogelijke control codes met de daarbij behorende functies. 
Voorafgaand aan de code is de deciaale waarde gegeven van die code (te gebruiken 
bij PRINTSx) en wordt gevolgd met de in direct mode in te drukken toets. 


B CTRL-8 NUL -— wordt niet herkend. 

3 = het hierna volgende teken wordt naar de printer gezonden. 

2 CTRL-B STX -— enabled de priaterpoort 

3 CTRL-C ETX - disabled de printerpoort. 

4 CTRL-D = selecteert de 32 tekens per regel tekstmode 

5 ETRL-E = selecteert de 42 tekens per regel tekstmode. 

& CTRL-F ACK - start de output naar het schera. 

7 CTRL-G BEL — beep 

8 CTRL-H B5 = verplaatst de cursor 1 plaats naar links 

9 CTRL-E TAB = verplaatst de cursor 1 plaats naar rechts 

18 CTRL-J LF - verplaatst de cursor 1 regel omlaag (indien geen pagemode is 

- geselecteerd scrolt de tekst 

11 CTRL-K VT - verplaatst de cursor 1 regel naar boven (niet op de bovenste 
regel) 

12 CTRL-L Ff - maakt het tekstwindow schoon (zwart), zet de cursor links boven 
in het window en (re)set de characterset op wit 

13 CTRL-M CR -— zet de cursor vooraan de regel 

14 CTRL-N = pagenode aan. Als de cursor de laatste regel van het 


tekstwindow bereikt stopt de uitvoer totdat SHIFT ís ingedrukt 
waarna de uitvoer wordt hervat vanaf de top van het scherm, 


15 CTRL-O = pagenode uit. Het scrollen wordt hervat 

17 CTRL-G = inverteert het tekstwindow en de char.set 

18 CTRL-R = inverteert het gehele scherm inclusief de char. set 

19 CTRL-S = maakt het schera schoon (zwart), zet de char. set op wit aaar 
verplaatst de cursor niet 

28 CTRL-T - inverteert de character set, 

21 CTRL-U NAK = stopt de uitvoer naar het scherm totdat CTRL-F (ACK) wordt 
ingetoetst. 

22 = net aansluitend 4 bytes, bepaalt de graphics mode en de 


tekstwindow afmetingen. Bij gebruik van de commando's MOVE, 
DRAW, PLOT dient het juiste CLEAR commando gebruikt te worden. 
(bíjv. PRINT$22$2;CLEARZ ) 

23 = gevolgd door 9 parameter bytes definieert uw eigen letterset. 
Het eerste byte is de charactercode die u wenst te wijzigen. Oe 
overige 8 bepalen dat nieuwe teken in het B#0 pixel formaat te 
beginnen van bovenaf, Let er op dat het aeest significante bit 
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vrij moet blijven om de tekens van elkaar te kunnen scheiden en 
dat tevens het eerste byte 8 moet zijn i.v.m. de regelspatie 
Bij de 42 t per regel mode kunnen slechts 6#8 pixels van elke 
byte worden getoond daarom moeten de 2 minst significante bits 
van elk byte U zijn. 

(bijv. PRINTS2SS#24S0S#448#208A7CSHLESH7CERID) 





24 CTRL-X = delete 1 regel, zet de cursor vooraan de regel 

Zé ETRL-Z = reset het tekstwindow naar het gehele scherm 

27 ESC — escape 

28 = definieert het tekstwindow met 4 aansluitende parameters voor 


links, onder, rechts, boven 
voor 32 tekens; B tot 31 = links ——-> rechts 


voor 32 tekens; U tot 24 = boven ===> onder 
bijv. PRINT$28$2$22$29$2 reduceert het tekstwindow met 2 tekens 
rondom. 

38 CTRL-* = plaatst de cursor in de linker bovenhoek van het tekstwindow 

3t = tet 2 opvolgende bytes bepaalt de cursorpositie;s 


respectievelijk horizontaal en verticaal gerekend vanaf de 
linker boven hoek. De eenheden zijn afgeleid van de gekozen 
tekstmode of afmeting. De navolgende tekst wordt na de nieuwe 
cursor positie geprint 

127 DEL = wist het voorgaande teken en plaatst de cursor 1 teken terug. 


Ten slotte. 
Met LINK&FF3F, de ATOM breakroutine, verlaat u de SCREENROM. LINKKAFFO 


daarentegen verandert slechts de WRCVEC en de RDCVEC en gaat over naar de ATOM 
printmode. De tekstpagina pointer blijft dan op #2C80. De SCREENROM is niet 
compatibel met de colour graphics mode en het BBC kaartje. Voor het opheffen van 
de screennoise is uitsluitend een hardware oplossing noodzakelijk. Een software 
oplossing vertraagt de werking onaanvaardbaar, 


UIT DE CLUBWINKEL 
JAARGANG 1835 


45B PAGINA'S INFORMATIE 


PRIJS FL. ZO. DA 


UIT DE CLUBWINKEL 





EPROMPROGRAMMER KAART 
PRIJS FL. zion 


LEVERBAAR ZOLANG DE VOORRAAD STREKT. 
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PBRIT 


18 REM PBIT E.RONDA 27-11-84 


2e 6,128 
30 DIT SOURCE-PROGRAMMA GENEREERT CODE DM EEN <EXPRESSIE 


48 ALS BITS TE PRINTEN. 

S@ SYNTAX: PBITKEXPRESSIELD,CEKPRESSIE2), 

60 ALLEEN VAN EXPRESSIE1 WORDEN DE TWEE LAAGSTE BYTES ALS 
70 BITS GEPRESENTEERD. 


ga By.: PBIT?#BOBIKG IG" 

108 B9LLIAAB 81630000 40 

118 

128 J=7;DIMLLJ;F, E=OTOJs LL I=#FFF EN. ; @=0 

130 P.$12°S0URCE PBLT"';DOP, "="zU.C. Het 2 
140 IN. ''"GEEF STARTADRES BV #3CO8 "Zj IF?18=1/256: 6.140 
158 P.$21;F.1=1T02sP=Ij IFI=2P. $6 

140 

17D:LLB JSREC7BB; JSRECSCB 

188 LOARSI: JSRLLA; LDANS2; JSRLL A; SMPRCSAG 
19@:LL4 LDKE7:STARG6 

200:LL5 BIT#G&;BPLLL Gs LDA@RSI; BNELL7 
210:LLé LOAERSE 

22@:LL7 JSR#CA4C: ASL #66 3 DEX; BPLLLS4 JMPRF 379 
250J;N.4P. “CODE VAN “&Z" TOT “KP'$33E. 





Hierna volgen enkele voorbeelden die een en ander wat zullen verduidelijken: 


Fles t TO 10;BPIT I'sN.;P. 
goLseaed LLLAAOHI 


ï 
gageaage oLPIAAI 2 
vanaB008 L2A0DE: 1 2 
92954033 O20OH10O 8 
goeeeHan PO9BAID1 5 
vag200DE 22008110 é 
gaaggare GARELLI: 7 
eeagoged 2AEEI 08E 1] 
eoveedan 9O2DI 081 3 
esagaaee AAE! A 
F.i=t TO 1B:PBITZel ;N.;P. DO; PBIT?#BAAL ;U.B;P. '$5 
egouaLde O8HOGO1D 2 eeBaoBe 1Iittiit FE 
ooegeaad ODDORIGE 4 „809300 11111111 FF 
eaaaaaea edaast 19 6 BEBEEALB Bitiiiss IF 
eegveae CA001 003 8 B8209008 Oiitiiss 7F 
peeePeed 28001010 A GEBOLAEB Liitirtr FF 
aegageeg LOAAI 100 c BEA9BAED 1tuttuit Er 
gednsaeD LDPOIIIE E @829809R 1O111111 EF 
00B0BGLD 20015005 18 B890BLOB Diit BF 
ogogeeen 22010810 12 2ELBRBAE 1O111i11 Br 


1ee0eteR 22010190 14 BEREID 11111111 FF 
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INDEX MAKER VOOR TAPES 


Met het onderstaande programma ís een index te maken voor al Uw computer tapes 
Dit programma kan de index ook naderhand weer wijzigen. 
Voorbeeld: 


t INDEX TAPE 1 


SOURCEMAKER 2900 3BZE C282 
ATOMCALC A@s8 Beag AOQD 


SCHIPHOL 2708 3Fad C2B2 


t_ SPACE WAR 2908 358A C2B2 
d 


1 LOAD" SOURCEMAKER" Ú 
1 #LOAD"ATOMCALC" 
t__ RUNYSCHIPHDL" : 


+RUN" SPACE WAR* 





De index is van tape te lezen met behulp van *LOAD"INDEX" 


18 REM CASSETTE INDEX MAKER 
20 REM F.SPENKEL INK 
38 REM NIJVERDAL 


58 REM INDEX LADEN MET 
68 REM *LOAD" INDEX" 


B8 REM dis, 15 strings 
108 DIMA32,B32,C32,032,E32,F32,G32,H32,132 


112 DIMJ32,K32,L52,M32,NS2,052 
128 !#8B=RBSFFESZO; (PO4=H60BA 





138 

148 REK print menu 

158 

168 BDS. z 

178 P.'“ INVOEREN INDEX 1" *# AFDRUKKEN INDEX 2" 
188 P.°'* SAVEN 1258 BAUD 3*""« SAVEN 308 BAUD 4 
198 P.°'* EDITEN INDEX 5"7"* LADEN INDEX 6" 
208 605. y;L 1. #84 

218 

220 REM welke keuze 

258 


248 IF ?48A=49 GOS. a 
258 IF ?#BA=S8 GOS.b 
268 IF 78BA-S! OR PRBA=52 EOS,C 





276 IF ?#4A=53 GOS.d' 
288 Ir ?8BA=54 GOS. e 
298 6,160 
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318 REM invoeren index 

328 

3382608, z 

348 P.'“* U KUNT NU 15 REGELS TEKST"'" INVULLEN" 
358 P,''* TOTAAL 32 KARAKTERS PER REGEL" 
368 P.°“* LIEFST TWEE SPATIES VOORAAN"""" DRUK GP EEN TOETS“ 
378 GOS. ys LINKGFFES 

388 P,$12; IN. SASBSCSDSESFSGSHSISJSKSLEMSNSD 
398 ZEILER. 

489 

410 REN afdrukken index 

420 

430bP. 812; 74EL=8 

440 P.$A'SB'SC'SD'SE'SF'SG'SH'SI'SI'SK'$L "SM" SN'SO 
458 LI. RFFES;R. 

4466 

478 REM saven index 

488 

498C60S. z 

502 P‚'* U SAVED NU DE GEMAAKTE INDEX" 

518 ‘« ZET DE RECORDER OP RECORD" 

528 "» DRUK TWEEMAAL OP DE SPATIEBALK!" 
550 “… DE INDEX KOMT OP HET SCHERM*'’ 
540 P.“ NA DE PIEPJES OP DE SPATIEBALK" 

558 P.'" DRUKKEN OM HET SAVEN TE STARTEN" 
563 SUS. y; LINKKFFES 

570 

580 REM 308 of 1288 baud 

598 

628 IF ?WBA=SI FC. 

618 IF ?#BA=52 SC. 

420 6OS.b 

630 *NOMON 

640 P,$7$787 

650 #SAVE“INDEX"8009 8200 

66B *KON 

670 R. 

688 

69D REN edit routine 

7aa 

71dP.$12;G08.b;P. $30; ?#E1=#60 

718 IN.SASBSCSDSESFSGHHSISJSKSLSMENSO 

748 R. 

758 

768 REM inlaad routine 

770 

788e605. z 

798 P.''* U KUNT NU EEN INDEX VAN BAND" 

882 P.'* INLADEN, NA HET INLADEN STAAT" 

818 P.°* DE ATOM IN INPUTMODE ZODAT" 

B28 P.'” MET COPY DE INDEX WEER IN HET“ 

B38 P.'“ GEHEUGEN WORDT GEPLAATST" 

868 P.'" VOOR VERDERE BEWERKING" "°° 

850 FC,4?E1=#B8 

858 &LOAD* INDEX" 

878 P.$30; IN, SASBECSDSESFSGSHSISJEKSL SMENSO 
888 Rr. 

B9BzP.$12; MEL=B;P." #42 CASSETTE INDEX PROGAMMA #ta”;R. 
FROyP. 7" Ganrenesnante renten ennn nente sr, 








PAG. 56 ACORN NIEUWS WORD-PACK RELOCATED XAVIER VAN LINEN 





WORDPACK GERELOCATED 


Aangezien ìk een P-CHARME eprom heb op 1C-24 en geen (mini)schakelkaart, kan ik 
WORDPACK niet gebruiken. Dit vand ìk jammer, dus heb ik WORDPACK gerelocated 

Op zijn zachst gezegd was dit rot werk want ik had het RELOC statement van de 
JOSBOX niet tot mijn beschikking, dus moest ik het met de hand deen. Achteraf 
gezien was dit eigenlijk best wel gunstig omdat ik dan meteen wist waar de data 
tabellen stonden. Ik heb dus WORDPACK naar #7030 gecopieerd, en ben toen 
begonnen met het aanpassen van de adressen, 

Als je WORDPACK relocate dan moet hij op een #X900 pagina beginnen. Dus niet op 


bv. #5C48 maar op bv. #4080.Ik leg zo wel uit waarom. 
Ik beschrijf deze procedure nu zodat de WORDPACK naar #7808 gaat. 
Vanaf #ABB2 t/m #AQ7A staat gewoon machine code die je gewoon kan relocaten, 


M.U.V. 


KAD67 LDA E#29 
#AD6S STA #0202 
#AD&C LDA @#AS 
HADGE STA #0203 


loals je ziet werdt hier de BRK-vector gewijzigd, en wijst nu naar #A529. Dit 
moet dus #7529 worden, dus maak van die LDA @#45 maar LDA@#75. 

Vanaf #AU7B t/m #ABB4 staat een klein tabelletje, deze kan je gewoon maar #7B7R 
toe copieren. 

Vanaf #ADB5 t/m #A6ZC staat ook weer gewone machine code, die kan je dus ook 
weer zonder probleem relocaten naar #7085, 

Vanaf #A6Z2D t/m #AG8Á staat weer een tabel. Copieer deze eerst naar #762D. Vanaf 
#764B t/m #7668 staan er 51 bytes die met een ‘A’ beginnen (dus #AX), Deze A's 
moeten in 7's veranderd worden zodat de adressen in deze tabel weer Kloppen 
Vanaf #7669 t/m #758& staan nog 21 bytes die NIET veranderd moeten worden 

Vanaf #A687 t/m #AABA staat weer gewoon machine code, relocaten maar. 

Vanaf #AABB t/m #AAC4 is er weer een tabel. Deze moet je ook gewoon weer 
copieren naar #7ABB. 

Vanaf HAAC5 t/m HACEA weer gewone machine code 

Ku weer een tabelletje: 


HACEB CE AC IF AC 
HACEF 52 FE Ei AA 
#ACFS 15 AB 94 FE 


De AC,AC,AA en AB moet je dus veranderen in 7C,7C,7A en 7B. 

De volgende 9 bytes zijn 3 JMP's, dus wel relocaten. 

Nu, vanaf #ADQB t/m #AFFF volgt de karakter tabel, deze moet je dus vok normaal 
KOPIEEREN naar #7D80, 

De WORDFACK print routine gebruikt een nogal vernuftig truukie om de karakters 
te decoderen haar hun plaats in de karakter data tabel. Ik heb hier over dus een 
paar avonden over zitten piekeren voordat ik het door had. 


Op #ABAS staat: 

#ABAS LDA @N2E 

In binair is #28 +: 09101811, Als je dit nou 2 plaatsen naar links schuift dan 
staat er #AD ‚ of m.a.w. de pagina waar de karakter tabel begint. Als wij van 


die ‘A’ een 7 maken dan begint de tabel vanaf #7D0@. De tabet MOET op een #XD0O 
pagina beginnen. (Als je de tabel ergens anders wil laten beginnen dan moet je 
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de WORDPACK printroutine veranderen, maar daar had ik geen zin in). 
Die %OBLBIBIL wordt dus %00B11111, of te wel die LDA @#2B wordt nu LDA @#1F. 


Nou nog het laatste : 


#A57F LDA €#71 
#A5BL STA HIC 
#ASES LDA E#AG 
#ASE5 STA #1D 


Hier wordt het executie adres van de te saven WORDPACK file gezet op #AB71. Als 
je wilt kan je hier #7071 vanmaken maar het hoeft niet 

Het start adres voor EDIT is nu #7838, 

Het start adres voor TEXT ís nu #78B5. 

Je kan deze statements ook voor P-CHARME herkenbaar maken.Hier volgt een hexdump 
van hoe dat er uit ziet in het geheugen: 


7408 FF ES C6 45 .. Ee 
7404 44 49 54 FAQ DI . 
7008 34 54 45 58 ATEX 
700C 54 FB 95 BA T... 


mar 


Je kan de machine code die er eerst stond (tot aan #702F) overschrijven want dit 
is de interpreter van WORDPACK en die wordt dan dus niet meer gebruikt 


Als je de volgende veranderingen (van Arie Marchal A‚N. 35.5) ook nog aanbrengt, 
dan gaat het cok goed aìs je op 6 drukt (als je dus Quit van de tekstverwerker): 


geheugen was wordt 
plaats 

#7CFI #E1 #94 
#7CF2 #7A sFE 
#7AD? #15 #07 


Nou volgens mij moet WORDPACK het nu doen op #7009. Bij mij doet hij het 
tenminste wel. 


Een WAARSCHUWING!!! als je een lange WORDPACK file hebt dan kan deze ove de 
#780B gaan en dus WORDPACK op #7008 overschrijven.Zorg er dus voor dat een 
WORDPACK file niet langer is dan 28 WORDPACK pagina's. 

In Acorn Nieuws 2.6 Staat nog een interessant artikel, van Henk Boxma, over 
printer codes vanuit WORDPACK. 


Wist U trouwens al dat er een nieuwe tekstverwerker rom ín Engeland verkrijgbaar 
is voor de ATOM. Het is de ‘BEARSOFT EDITOR’ van BEARSOFT,. Deze rom is een 
verbetering van de oude WORDPACK van ACORNSOFT,Hij kost alleen 35 pond incl, btw 
(FL 140,- of zoiets), toch wel een beetje duur niet waar. 

Nou veel plezier met de WORDPACK op #7000 
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BBC KAARTJE 


De laatste tijd is het ACORN BBC kaartje voor het bedrag van maar F 79,- in de 
winkel te vinden. Dat zal weì voor het laatst zijn want de laatste ATOM-waren 
moeten uit de verkoop. Ik kon het voor dit bedrag niet laten, om ook zo’n 
kaartje te kopen. Na alles wat hierover eens geschreven was, gelezen te hebben, 
ben ik eens gaan bekijken hoe ik het beste dit kaartje kon inbouwen. Het kaartje 
neemt in de ATOM kast nogal veel plaats in zodat andere kaarten als 16K kaart en 
schakelkaart mogten verdwijnen. Behalve dat het kaartje fysiek veel ruimte 
vraagt, haalt het op een dermate walgelijke wijze de ATOM overhoop dat het 
actief laten meedraaien van andere kaarten op de ATOM moeilijkheden geeft. Ik 
heb daarom ( voor de toekomst, want ik verbouw nogat veel aan mijn Atom ò het 
kaartje maar eens goed bestudeerd 

In eerste instantie moeten in de Atom aìle kaarten, gestapelde geheugens en 
schakelkaarten verwijderd worden, om met behulp van dit kaartje BBC-basic te 
kunnen draaien, Dit is natuurlijk niet acceptabel, en daar moeten wat 
verandering ìn worden aangebracht, Voor de TELEC schakelkaart, de 16K kaart op 
#4008 en alle gestapelde varkens heb ik een oplossing. Met behulp van een nadere 
beschrijving moet het mogelijk zijn zelf ook aanpassingen te kunnen maken. 

Zelf heb ik een TELEC-schakelkaart, een lang en smal geval, die een plaatsje kan 
vinden tussen het Atom board en de bovenkant van de kast. Met behulp van een 
lang stuk flatcabel is deze weer verbonden met de ic 24 connector van de Atom 
board. Echt prettig is dit niet, want de Atom bus is op deze plaats niet 
gebufferd, en de lange flatcabel kan wel eens teveel zijn ( te zware capacitaire 
belasting ). Bij mij functioneert het echter goed, Deze methode is ook geschikt 
voor de minischakelkaart, Andere grotere Kaarten moeten helaas buiten de Atom 
geplaatst worden, 

De 1&K kaart op adres #4040 - #8090 zit bij mij buiten de kast, in een mooi 
hiervoor geschikt plat doosje, Verder heb ik gestapelde geheugens vanaf adres 
#3CBO — #4008 en #9B9D — HADDY, Deze zitten de BBC kaart fysiek cok wat in de 
weg, want die komt boven deze ic's te liggen. Bovendien accepteert de BBC kaart 
geen geheugen tussen #2009 — #2808 en #3C08 - #40C0. Toch willen we in ‘Atom 
mode’ straks wel geheugen hebben van #2088 - #4009. Dat kan ! Als eerste moeten 
de gestapelde varkens van #2089 — #2890 met hun selectielijnen aan de +5 volt 
gelegd worden. Deze werken dan niet meer, De BBC kaart kan in de voeten van ic's 
24, 25, b en 8 gestoken worden. Omdat de kaart door de varkens iets hoger moet 
komen te liggen, kun je het beste op de 4 connectors van het kaartje 4 passende 
ic-voetjes plaatsen. Dan past de kaart nog net in de kast en kunnen de varkens 
tussen BBC kaart en Atom board blijven zitten! Bovendien zijn de pootjes van de 
kaart iets te dik, zodat ze de voetjes op de Atom kaart kapot kunnen drukken. Dp 
deze manier opgelost geeft het later geen teleurstellingen, 

Blijft nog het geheugen van #3CO0 — #8908 over, De varkens voor #5C0@ moeten met 
hun setektielijn a&an pen 7 ic 9 van het BBC boardje gelegd worden. Het is 
verstandig deze ook door te trekken naar pen ft ic 5 van het Atom boardje, om de 
bus dan dicht te trekken. Hiervoor moet pen 1 ic 5 natuurlijk wel van de print 
losgenomen worden, Ic 9 van het BBC boardje vervangt het ic dat vroeger op de 
Atom board voor de selektie van #3CXX gebruikt werd, Nu moet pen 6 van ic 12 
van het BBC kaartje van de print losgemaakt worden en aan de +5 volt gelegd 
worden. We hebben nu geheugen van #2000 — #4009. 

Blijft nog de 16K kaart over, Hiervoor kan het truukje van Gerard Morsink 
gebruikt worden: pen 1! ic 14 BBC board moet van de print lasgemaakt worden, en 
met pen 12 van ic 12 BBC board verbonden worden, Ve externe bus gaat nu in de 
‘Atom avde' open op de adressen #400D — #8000. 

Alleen mensen met een gewone schakelkaart, disk controller, af een 16K kaart op 
#0008 — #4288 moeten au zelf nog aanpassingen verzinnen. 

Daarvoor zal ik verderop beschrijven wat het kaartje nu precies doet, en wat het 
effect van de net uitgevoerde handelingen is. 

Verder heb ik nog wat subtiele wijzigingen aangebracht. Het schakelen tussen een 
'BBC machine’ en een Atom vanaf het toestenbord gebeurt met control-break en 
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shift-break. Control-break plaatst de nu ontstane ‘dubbel=-computer’ altijd in de 
Atom mode, en shift break-altijd in de BBC mode, Nu waren sommige al bekend met 
het indrukken van shift-break in glaats van gewoon break, om per ongeluk 
indrukken van de break=-toets te voorkomen. Het zou dus logisch zijn om 
shift-break te Jaten corresponderen met Atom mode, en control-break met BBC 
mode. Dit kunnen we doen door de control en shift lijnen vanaf het BBC baardje 
naar de atom met elkaar te verwisseten 

Verder is het zo dat bij mij in de BBC stand na power=up opgestart wordt. De BBC 
mode ís voor mij echter optioneel, en ik heb dus liever dat na power-up de atom 
mode de voorkeur heeft. Dat kan afgedwongen worden door pen 5 ic 15 ( BBC board 
) met een heel klein condensatortje met de +5 volt te verbinden, De flipflop die 
met ic 16 en 15 gevormd wordt, krijgt zo een voorkeur voor de Atom mode. 

Rest nog een beschrijving van wat het kaartje nu eigenlijk doet zodat zelf ook 
wijzigingen aagebracht kurnen worden. 

Het plaatsen van het RBC kaartje verandert al direct wat aan de 
geheugenindeling, De vogende verschuivingen vinden plaats 





Voorheen: Na inbouw in Atom mode: 
#5800 #2000 

#3400 #2400 

#5000 #2BD8 

#2C00 #2C28 

#285Ĳ #5089 

niet aanwezig #5400 2 extra 2114's 
niet aanwezig #3800 2 extra 2114's 
#35CO0 #5CO0 onze oude varkens 


Er vindt dus een aanzienlijke verschuiving plaats. De 4 2114 van het BBC kaartje 
nemen nu plaats op #348@ — #5C00, Daarom moeten we dus ook oude varkens van 
#2000 — #2800 onschadelijk maken. Ze worden door het BBC kaartje automatisch 
vervangen. De varkentjes op #3C48 blijven op hun plaats. De aangebrachte 
veranderingen zorgen ervoor dat in BBC mode de zero-page ic's Sl en 52 niet meer 
werkzaam zijn, maar vervangen worden door de ic's die in Atom mode #2008 
bedienen. Hierdoor hebben we in Atom mode nu geheugen van #2002 — #4000 
Verder is van belang dat het BBC kaartje geen adreslijnen verandrt, zodat 
bijvoorbeeld geheugen tussen #40% en #2008 dubbel geadresseerd kan worden, met 
alle gevolgen van dien. Iets dergelijks geld met name voar de 16K kaart, die 
zelf selekteert van #4009 tot #8200. Ik kom hier nog op terug 
In de Atom mode is de externe bus nu gesloten in de gebieden: 
#@000 — #0400 
#2008 — #3CO2 #3C38 kan nog afgeknepen worden door selektie 

lijn door te trekken naar pen 1 ic 5 Atom board 
#800B — #E03A 
#FO08 — #FFFF 
Door de wijziging van Gerard Morsink is de hus bij de adressen #4008 — #8088 wel 
geopend. Bij het emschakelen naar BBC mode verandert er nu het een en ander: 
ATOM MODE: BBC MODE: 





#0902 - #9400 Uitgeschakelt 
#2429 — #2000 #0408 — #2000 dubbel voorkomen 
#20900 — #4000 #0020 — #2000 workspace en tekst ram 
#2000 — #4000 nog te gebruiken 
#4008 — #EOZ2 #4000 — #8000 afgesloten ín BBC mode zelfs op de externe bus 
#8D28 — #CHOD #4008 — #8098 Display, pia en via en A-blok 
Niet aanwezig #B320 — #COOO BBC rom 
#COOB — #D00D #CO20 - #D000 wordt vervangen daor MOS extension rom 
#DO0B — #EDDG #DO0D — #E2DD verdwaalde fl point rom 
HEOOS — HFDOO #EOOD - #FO2G Disk 222777 


#FOOO — #2000 #FO09 — #0900 wordt vervangen door BBC MOS rom 
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In BBC mode is de externe bus nu gesloten voors 

#a00n — #2900 

#400B — #EBDA 


#FO08 — #000A 
Doordat de BBC graphics ruimte nu op #4800 - #6008 zit, wordt ook de 1&K kaart 


aangesproken. Dat kont omdat deze kaart zelf seleteert, en de adres lijnen niet 

veranderd worden in BBC mode, De externe bus is echter dichtgeknepen, zodat de 

14K kaart geen informatie kan doorspelen. Hij is echter wel geselekteerd, en 

verandrt dus van inhoud. Een echt fraaie oplossing is dit dus niet. 

We zouden het een en ander naar onze hand kunnen zetten. Enige ideeen, maar nog 

niet uitgewerkt zijn: 

= In BBC mode de r/w lijn bij #4208 — #8822 altijd op read zetten. De lk kaart 
zal dan nooit lezen, en dus van inhoud veranderen. 

= Wat adreslijnen omgooien in BBC mode, zodat ook #2000 — #4080 als tekst ruimte 
tot onze beschikking komt, #2000 — #4848 moet dan #4200 — #&808 warden. De 16K 
kaart kent deze adressen al. 





Helaas moet voorlopig in BBC mode de 16K kaart maar op write-protect gezet 
worden. fn het korte bestaan wan mijn BBC basic, heb ik alvast wat beslag weten 
te leggen op de volgende informatie: 





Vectoren: doel; waarde; 
#8200 gereserveerd KFEFF 
#0202 BRK #B42D 
#22aa IRG #80D8 
#B206 gereserveerd 22229 
#4288 command line 

interpreter #F775 
#O20A BYTE #FBD2 
#020C WORD #FOBA 
#A20E write char HFS4F 
#2219 read #FEGD 
40212 load/save #F71A 
#4214 gereserveerd 22379 
#0216 BEET #FBCI 
#0218 BPUT KFCS1 
#021A gereserveerd 29722 
#OZIC FIND AFCOB 


Van deze vectoren kan gebruik gemaakt worden door onder anderen een eprom te 
plaatsen op #CO80 net ats eerste byte HAA. Na een brk via het toetsenbord velgt 
een JSR #CBO1, zodat we elegant het systeem kunnen wijzigen. 
Wist U verder dat: 
= Er fouten in het bijbehorende boekje staat 
“Er dour een engelse firma waarschijnlijk toch nog een MOS extension rom 
wordt gemaakt, 
— Er veel elegantere manieren zijn om BBC basic te verkrijgen. 
= Ôat hier waarschijnlijk nog eens over geschreven zal worden 
“ Er behoorlijke fouten zitten in de BBC rom, en MOS rom. 
= Deze er binnenkort uitgehaald zullen worden. 
… Er misschien binnen onze club ook een MOS extension rom gefabriceerd 
zal worden. 
= Het laatste woord over BEC basic nog niet gesproken is, 
= Ik er graag alles over zou willen vertellen. 
= Deze ‘tweede machine’ gok voor mij compleet nieuw is. 
— We dus erg blij mogen zijn met onze goed gedocumenteerde Atom 
Veel succes ft 
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Dit statement is Speciaal geschreven voor Opgenomen te worden in een Sthakelsoft 
of ín een jumper op de 16K ramkaart, Het statement kan bijvoorbeeld aangeroepen 
worden met HELP en is vergelijkbaar net gelijknamige statement uit de romarbox. 
Men moet er echter wel voor zorgen dat bij Qebruik in een Schakelsoft eerst de 
interpreter van de schakelsoft wordt doorlopen voordat deze in de utility's gaat 
zoeken en bij de romar-box terecht komt, Geeft dit problemen dan zal men een 
nieuwe naam moeten bedenken bijvoorbeeld “TEST" of iets dergelijks. 


Dit nieuwe statement biedt de mogelijkheid om het herkennen van de 
voorgesthakelde utility-rom te vereenvoudigen. Bij het aanroepen van deze “help” 
worden alle namen inclusief executie-adres op het beeldscherm zichtbaar gemaakt 


Om dit statement te kunnen gebruiken moet de interpreter van de utility direkt 
beginnen op #A802 en de Statement tabel beginnen op #A832. Voorbeelden van deze 
zijn: Romar-box, AXR-1, ASBK-1 enz, Is er geen utility aanwezig dan zal er de 
melding “NO UTILITY” op het scherm verschijnen. 

Verder nog veel plezier met dit statement 


1GREM TEST UTILITY 
ZOREN tantra en ennen 
SOREN« CHARL DE MOOR * 
$BREMs OKT 1984 * 
SOREN« 945 272358 * 
SOREMEER EN Ken ann nnn nnn ennn 
GSDIMNN(30) ,A5,B5;F.1=8 TO GE NNCID=HEFFGN. 
7@P.s12"TEST UTILITY * 
BBIN, *""ASSEMBLING TO: “1; IF?1822/256;6. 80 
9OIN, “PRINTER (Y/N): "$A 
10QIN, “LISTING (Y/N): *$B 
118P, ‘*pass 1°/S21GF, LelT02;PeZ; IF1=24P, $6811"pass 2*'""$21 
1207NEB=0; IF 1=2; IF ?A=00P, $2 
1S@IFI=2; IF?B=89P. $4 
148 
150: NNI; LDASAOG1 ; CMPEKEF; BEONN2 
L16OJSRAFFED; JSRAF7D1; 1; sP=*ND UTILITY“; PaP4LENP; CNOPs JMPAC20F 
17O:NN2; JSROF7D1; J; 1 P=40006; P=P+ 23 $P="CHECK UTILITY"; P=P+LENP 
180!P=MODOA;P=P+2; [ ;LOXENDA STEKEL; JSRRETED 
198: NNS; LDYEB; JSREFFED 
Tra smge LLDAEAOTZ, X3 BMINNS; JSRAFFF4;LOAMBOAL; ANDEN22; BEONNA 
21BINX; BNENN4 
2202 NN3} CHPENCS; BEONN6; LDAENOA; CPVO; BEGP+ 4; LDAEEIE 
Tacregedt INK INGGLDAMAESD, X5 JSRSFBO2; LDANAAL 51 JSReraaz 
ZEP NEMO; BEONNI; JSRAFTFD; JSROFTFD; JSRMFTED; INV IND 
Z301NN6; JSROFFED; JSRAFPED; LDAGKBO; STAMEL; Ipaczer 
268 )jN. ; IF?HEB=023; 6. 260 
270P.$6* ““READY*‘"» START: “LI” END : 
282P, $6$7$787"OUT OF RANGE DETECTED"" ; 
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EEN CASE-STRUCTUUR IEN FORTH - 


INLEIDING: 


Het in de P-charme voorkomende case-statement levert overzichtelijke, 
meervoudige vertakkingen in een programma op. Het is bijvoorbeeld erg handig 
voor het verwerken van een keuze uit een menu. 


En dergelijke structuur ís ook mogelijk in FORTH 

Hierbij worden de woorden CASE, OF, ENDOF en ENDCASE gebruikt 

Definities hiervan vond ik in het tijdschrift Dr. Dobb's Journaì. Ze zijn 
aorsprankelijk geprogrammeerd doer Charles E. Eaker en gepubliceerd in FORTH 


Dimensions val,11 no.3 p.357. 
De definities zijn door mij iets aangepast aan Atom FORTH. 


GEBRUIK: 


De hele caserstructuur moet in een colon-definitie worden opgenomen (die ik 


hieronder NAAM genoemd heb), want anders volgt er een foutmelding. 


De opbouw van de case-structuur is als volgt 


: NAAM 

CASE 

waarde OF aktie ENDOF 
waarde OF aktie ENDOF 


waarde OF aktie ENDOF 
aktie=alternatief 
ENDCASE 


ï 


TOELICHTING: 


Bepalend voor de keuze van de vertakking ìs de bovenste waarde op de stack op 
het moment waarop CASE uitgevoerd wordt. Deze waarde wordt vergeleken met de 
waarde die in iedere vertakking voor QF staat. Zodra een gelijke waarde wordt 
gevonden, wordt deze vertakking uitgevoerd en daarna naar ENDCASE gesprongen. 
Als geen van de waarden in de vertakkingen overeenkomt met de testwaarde, 
wordt (indien aanwezig) de aktie tussen de laatste ENDOF en ENDCASE uitgevoerd 


dan 


NAAM staat voor de naam van de colondefinitie waarin de case-structuur voorkomt 
Wat ik "aktie" heb genoemd kan bestaan uit een of meer FORTH woorden. Het 
overzichtelijkst is het waarschijntijk alle aktie binnen een vertakking als een 


woord te definieren. 
Zorg er in ieder geval wel voor dat de totale aktie binnen een vertakking of 


"aktie-alternatief" stack-neutraal zijn, d.w.z. geen extra waarden van de stack 
halen of er op achterlaten, anders treden er fouten op. Waarden die vanuit een 
waktie” doorgegeven moeten worden kunnen dus het beste in een variabele gestopt 
worden. Dit is overzichtelijker ook. 


Alle FORTH woorden die tussen NAAM en CASE staan worden altijd uitgevoerd, 
evenals alle woorden die tussen ENDCASE en 4; (semicolon) staan. 
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Let er wel op dat de te testen waarde boven op de stack moet staan op het moaent 
dat CASE uitgevoerd wordt. Deze waarde kan naturlijk al op de stack staan 
voordat NAAM uitgevoerd wordt, maar dan mag het eventuele gedeelte tussen NAAM 
en CASE de te testen waarde niet aantasten. Een andere mogelijkheid is dat de te 
testen waarde tijdens de uitvoering van het gedeelte tussen NAAM en CASE uit een 
variabele gehaald wordt en op de stack gezet. 


De waarden die voor OF in de vertakkingen staan kunnen als getallen in de 
definitie van NAAM opgenomen worden, De namen van, van te voren gedefinieerde, 
Constanten kunnen als "labels* voor OF in de vertakkingen gebruikt worden, 
waardoor de leesbaarheid van de structuur groter wordt. Bij het compileren van 
NAAM worden dan de waarden van de constanten in de definitie opgenomen, Overal 
waar sprake is van getallen of waarden worden enkele precisie integer getallen 
bedoeld. 


DE DEFINITIES: 


SCR # 308 

8 ( CASE CH.E.Eaker FORTH Dimenions IE, 3 p.37 ‚ 
t ( Bewerkt voor Atom FORTH door Sieb Spannenburg ) 
2 FORTH DEFINITIONS DECIMAL 

3 : CASE ?COMP CSP @ ICSP & ; IMMEDIATE 

4: oF 4 ?PAIRS COMPILE OVER COMPILE = COMPILE 

5 [ HEX 28A2 , DECIMAL ] HERE 9 ‚ COMPILE 

& DROP 5 ; IMMEDIATE 

7 =d 

SCR # 301 

® ( CASE 2 S,SP. 22,11.84 } 

í 

2 : ENDOF 5 ?PAIRS COMPILE [ HEX 288D ‚ DECIMAL 1 

3 HERE @ , SWAP 2 CCOMPILE] THEN 4 3 IMMEDIATE 

à 

5 : ENDCASE 4 PPAIRS COMPILE DROP BEGIN SP@ CSP € = 8= 

6 WHILE 2 LCOMPILE] THEN REPEAT CSP ! 3 IMMEDIATE 

7 


EEN VOORBEELD: 


Als voorbeeld heb ik het hoofdmenu van DBASE 3.00 uit Acorn nieuws 1,1985 
genomen. Het voorbeeld zet het menu op het scherm en wacht daarna de keuze af. 
Als een goede toets ingedrukt word, dan wordt de naam van de gekozen aktie 
afgedrukt, om te laten zien welke vertakking gekozen is. (Bij een volledige 
toepassing zou hatuurlijk het gekozen programaagedeelte worden uitgevoerd.) Bij 
een niet geldige keus gebeurt er niets, 


SER # 501 
U ( VOORBEELD CASE S.SP. 15,2.1985 } 
1 2 CREATF CR," CREATE (DUMMY) « 
2 « LOADF CR .* LOAD (DUMNY) « 
5 1: COS/D0S CR.“ COS/DOS (Dummy) 
4 : DIRECTORY CR .* DIRECTORY (DUMMY) * 
5 
6 
7 


: QUITF CR .* QUIT (Dummy) 
t CLS 12 EMIT ; @ VARIABLE VLAG 
==) 
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…… THEN 


ENDOF 
ENDOF 


constructie in FORTH 


SCR # 542 
0 ( VOORBEELD CASE 2 ) 
1 
2 : DOE-MENU 1 VLAG | CASE 
5 67 OF CREATE ENDOF 63 OF LOADF 

42 OF COS/DOS ENDGF 46 OF DIRECTORY 
5 81 OF QUITF ENDOF 
8 VLAG ! 

& ENDCASE 5 
eind 

SCR # 503 
Q ( VOORBEELD CASE 5 } 
1 1 „MENU CLS 18 SPACES …* MAIN-MENU " CR CR 
2 .* 1,..CREATE NEW DATABASE ‘C} ” ER 
3 2...LDAD EXISTING DATABASE (<) * CR 
4 3...EXECUTE COS/DOS COMMAND te) * CR 
5 4...DATAFILE DIRECTORY {.) * CR 
b ." 5...8UIT (@} * CR CR 
7 .* :PLEASE ENTER COMMAND * 5 == 

SCR # 504 
8 ( VOORBEELD CASE 4 } 
1 
2 : MENU … MENU 
3 BEGIN 
4 KEY DOE-MENU VLAG @ 
5 UNTIL 
6; 
7 
EEN TOEGIFT: 
er zijn misschien mensen die de IF …. ELSE 
verwarrend vinden, en IF ……… ELSE .…. ENDIF iets makkelijker. 


Zij kunnen ENDIF als volgt definieren: 


2 ENDIF _ CCOMPILEI THEN ; IMEDIATE 


Veel succes met Forth! 
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TEXT STATEMENT VOOR BBC BASIC 


Naar aanleiding van het spoolerprogramma uit ACORNNIEUWS 7 jaargang 3 voor BBC 
basic, heb ikzelf een betere spooler geschreven. Het verschil tussen deze 2 
Programma's werdt al snel duidelijk bij gebruik. Bij dit programma, wat 
hetzelfde doet als het text statement uit wordtpack, wordt na aanroepen van dit 
programma alle output tevens in het textgeheugen gezet vanaf #2902, Tussen #2880 
en #2902 worden spaties geplaatst zodat de BRK die we straks verplicht zijn uit 
te voeren om weer ín ATOM mode te komen, niet de tekst modificeert. Werkwijze: 
roep dit programma aan, en list bijvoorbeeld een BBC programma. Ga daarna met 
BRK naar de ATOM mode en bekijk de text met behulp van WORDPACK. Álle tokens 
zijn nu vervangen door gewone ascii characters, dus kunnen we de file 
bijvoorbeeld vanuit de ATOM mode op de printer zetten. 


18 REM TEXT STATEMENT 

20 REM TEXT TO «500 

38 REM LIKE WORDPACK TEXT 
40 DSBPUT=LFFD4 

50 OSWRCH=&FS4F 

68 WRCVEC=402DE 

70 LF=t@ 

80 REGISTER=&8D: TEMP=482 

98 TEXTSPACE=&G02 

108 FOR IX=&800 TO TEXTSPACE 
118  ?I%=620 

120 NEXT 

138 !REGISTER=TEXTSPACE 

148 ?TEXTSPACE=4 

158 DIM CODEX50 

168 FOR PASS 
178 _P4=CODEK 








189 £ 
198 OPT PASS% 
200 „TEXT 

210  CMPELF 


228 BEG SKIP 

238 _STY TEMP 

246 _LDY wo 

25@ STA (REBISTER),Y 
268 INC REGISTER 

270 _BNE Pi+4 

282 INC REGISTER+1 


290 PHA 

380 LDA #4 

318 STA (REGISTER) ,Y 
528 PLA 

338 LDY TEMP 

348 .SKIF 

350 JMP OSWECH 

3566 J 


570 NEXT PASSX:CLS:PRINT"TEKT TO 42809 ATOM MODE" 
388 WRCVEC?G=TEXT AND FF: URCVEC?I=TEKT DIV 256 
398 END 
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DE BACK 





PLANETARIUM 


Planetarium is een computersimutatie van ons zonnestelsel. 
Het programma geeft nauwkeurig uitsluitsel over plaats en 
planeten ín ons zonnestelsel, over een tijdspanne van zo'n 


baan van alle bekende 
honderd eeuwen. 


Speciale aandacht is besteed aan het aarde-maan syteem,meteoorsporen en 
komeetbanen. 
Na de opstart van het programma wordt een testbeeld gegenereerd waarmee de 


werking van TV. of monitor gecontroleerd kan warden. Daarna volgt het menu 


Menu, 

Het menu kent B onderdelen. 

a "7" algemene informatie. 

een waardevolle toets in dit programma 


Elke routine heeft namelijk 


m.b.v. "?" kan 


de "7" is 
eeen eigen infoblok dat men tijdens het draaien van de routine 
oproepen. De routine gaat daarna verder waar zij was gebleven 


b "** einde 
Het programma 
en schakelt de page-mode in. 


€ "1" ge binnenste planeten 
Mercurius, Venus,Aarde en Mars 
d “2* de buitenste planeten 
Jupiter ,Saturnus,Uranus,Neptunus en Pluto 


Deze splitsing îs aangebracht vanwege de gigantische 
zonnestelsel, 

Routine "1" heeft als schaal 2,8 miljoen km./pixel, routine 
km. /pixel! 


e "3" aarde en maan 
De baan van de maan om de aarde is in deze routine 
vergroot. 
De routines "1", en "3" geven een “plattegrond” van de 
men steeds op het noordelijk halfrond van de aarde kijkt, 
het zogenaamde lentepunt waarvan de richting op het scherm 


voor 





£ "4“ planetenzichtbaarheid 
Deze routine laat zien waar de maan en 
zijn vanaf een bepaalde plaats tof uur} op aarde. 


neent afscheid van de gebruiker, blijft in 


de hoofd textspace 


afmeting van ons 


ze 


50,5 miljoen 
de duidelijkheid 400# 
pianeetbanen, waarbij 


Het referentiepunt is 
is aangegeven. 


de planeten van ons zonnestelsel te zien 


U krijgt een rechthoekig scherm te zien met witte zijranden (de zon). 
Horizontaal staat de tijd op aarde, geldend op de datum die rechts onder in 
beeld staat. 
Op het scherm worden de maan en de planeten geprojecteerd, elk vergezeld van 
een stipje vlak boven de onderkijn. Deze stipjes geven aan waar op een bepaalde 
dag, op een bepaald uur de hemellichamen te zien zijn, mits men “recht” het 
heelat inkijkt (langs de azimuth). 

en kan dus wel tonen in welke 


“planetarium” rekent met het plattegrondmodel, 
richting een planeet staat gezien 
Ter verduidelijking van de relatie 


U dan ket heelal inkijk 


vanat de aarde, maar niet op welke “hoogte”. 
tussen de tijd op aarde en de richting waarin 
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“planetarium” gebruikt de internationaal aanvaardde Planeetsymboten. 

Na het kiezen van de routine krijgt U eerst een infoblok met een korte uitleg en 
de beschikbare commando's 

Dan vraagt de routine de startdatum en de startsnelheid {stapgrootte in aardse 
dagen), 

Na de start ziet U rechts onder de datum, links onder de stapgrootte en bij "4" 
en “2” rechts boven de planeetsymboten met een getal erachter. Dit is een 
“rondeteller“ die &angeeft hoe vaak de betreftende planeet na de start het 
lentepunt in positieve zin {linksomdraaiend) is gepasseerd. 


Tijdens het draaien van de routine kunt U m.b.v. de volgende toetsen: 
8-9 :de stapgrootte veranderen 
= 1 het teken van de stapgrootte veranderen ‘planeten topen achteruit) 
S : de planeetsymbolen laten afdrukken of Weghalen (alleen bij "1* en 
2e) 
B : de planeetbanen laten tekenen of weghalen (behalve “ae 
spatie: kijken hoe de andere planeten staan op de datum rechts onder talleen 
“I* en *2“), Bij routine "4" ziet U eerst de binnenste, dan de buitenste 
Planeten, 
2: informatieblok hehalen 
M _: terug naar het menu 
H_ 1 routine herstarten, U kunt dan een nieuwe startdatum invullen 


Vult U bij jaar ‚maand of dag de letter M in, dan keert U terug naar het menu 
"5" Meteoorsporen 

De enige niet-wetenschappelijke routine, U ziet een Simulatie van een 
meteorenzwerm die verbrand in de dampkring tegen een willekeurige sterrenhemel 
“6“ Komeetbanen 

Een interessante routine die de differentiaal-vergelijking uitrekent van een 
komeetbaan in het gravitatieveld van een zeer grote massa (bijvoorbeeld onze 
zon), 
De routine vraagt de startpositie van de komeet (Rx en Ry) en de startsnelheid 
Wx en Vy) (floating input), 
Daarna vraagt ze de iteratie stapgrootte 
Vervolgens ziet U: 
hdd de massa net assenkruis (voor het verduidelijkenn van de Plaats van de 
kommeet) 
=”_ somentele waarden van plaats en snelheid van de koneet (boven in beeld) 
stapgrootte 5 (linksonder } 
“omentele waarde van het baan-inpulsaoment L (rechtsonder ) 
de komeetbaan (na enige tijd) 
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Een paar leuke voorbeelden: 


cirkelbaan: Rx=l Vx=0 
Ry=8 Vy=1 Sz5 
ellipsbaan: Rx=8 Vx=, B 


Ry=-1 Vy=.75 525 
parabool +: Rx=2.5 Vx=- 1.5 

Ry=.5 vy=8 5=5 
U ziet zo een demonstratie van de wet van Keppler. 
Per iteratiestap wordt een rekenfout gemmakt, waarvan U de invloed kunt zien 
opde waarde van het baanimpulsmoment, Deze behoort constant te blijven, dit 
wordt goed benaderd bij een kleine stapgrootte 
Raakt de komeet de massa, dan volgt een grote rekenfout (kijk maar naar de 
waarde van L), waarna de verdere baan niet meer correct is. 
Tijdenns het draaien van de routine kunt U met 





8-9 1de stapgrootte veranderen 
dad nformatie laten herhalen 
me erug naar het menu 


"He outine herstarten. 
Bij een floating point error, bijvoorbeeld het starten op de massa, klinkt een 


“bell” en kunt U opnieuw invoeren. 


Tot slot 
Het zal U duidelijk zijn dat “planetarium” ruim voorzien is van tekst en uitleg 


in het nederlands. 

Het programma rekent intern net de zogenaamde Juliaanse tijd, en houdt dus 
rekening met schrikkeljaren. 

De berekening van de planeetbanen is zeer nauwkeurig, dit geschiedt namelijk met 
inbegrip van tweede erde termen, de maan zelfs tot en met derde orde termen 

De relatieve traagheid van de sinusfunctie van de F.P‚-rom is omzeild door 
gebruik te maken van een sinustabel (de F.P.-rom is uiteraard wel vereist!) . 

Bij routine "6" is gebruik gemaakt van de SET-routine 


Opbouw en geheugengebruik: 
Het programma draait geheel in GRMOD en heeft dus de josbox nodig. 
vanaf #2924 is versie 38.3 21327 bytes lang en heeft geheugen nodig tet HIEFEs 
#2908-#2AB0 star tprogramma,buffer 
#2A00-#5D00 shape-tabellen 
inputroutine 
sinustabel 
Set-routine 
#3BDD-#7CAF hoofdprogramma (16719 bytes) 
#7C6B-H7EFF array opslag 


Verder is geheugen nodig van #188 tot #2808 voor het weg- en terugcopieren van 


het scherm. 
Het programma kan draaien zonder dit stuk geheugen, alleen mag dan nimmer het 


scherm verlaten anders dan door (menu) of "H" (herstart 





We hopen dat U veel genoegen aan dit programma zult beleven, en dat Uw blik cp 
ens zonnestelsel erdoor verruimd zal worden. 


p.s. laat routines die iets tekenen lekker lang lopen! 
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NIEUWE WECH-ROUTI NE 


18 REM NIEUWE WCHR 

28 REM AUTEUR: A,G.GERAETS 

58 REM NEER 

40 REM DATUM : 848411 

SO REM PGM GEEFT FAST OUTPUT MET SINT MOGEL IJKEHEDEN 

SB BEM DE SINT-FOUTINE 15 ONTLEEND AAN EEN GEL IJKNAMIG 
70 REM FGM UIT AN 19825 

850 DIM 5827; F. 1201027; SSI=HFEFF IN. 

8 IN, "WAAR MOET ROUTINE KOMEN TE STAAN"Z 

100 F‚I=1T02; 
118:SS@;LDAe 5 56; STA#208; L DAG SS1/256; STAR2BS; JMFHCSSE 
120:SS1 PHA: STX#E4; STYRES:; CMF@HOA; ENE SS2;JSR SS14 















150: SS23FLA: JSR HFEFE; PHF; PHA: CLD: JSF: SS5; JMF #FESF 

140: SS. MF@HOG: REG 554; CMP@#1 Ss BEG SSS:LDY HEB:EMI 556 
150CMF 1R;BEO 554; CMF @#B7; KEO SS7; JSF SSIS;LDX @#ZA 
180JSE HFECS: BN SS10; IMF HFER7 

170: 55 C:LDX @#DO:STX HEOOD 

180: 5 BHO; PHF 3 ASL HDE, X4 FLP; ROR HDE , X 

190: 556 





5 
200: SS7sLDA ORDE: TAY 
210:558; STA #HOGT 
220: 559; DE E S5:EORK @HO1; INYs EPL SSBB: RTS 
250:SS10:CMP @#20: ECC SSI5sADC @#1F: BMI SSLIsSEOR G#6A 
240: SSII;STACHDE) „Ys INY;CPY @HZOGECC SS12; JSF SSI9;LEY E#00 
250:SS12;STY HED 
280: 55153 FHA; LDA (HDE) „Ys EOF #E1; STA (HDE) ‚Ys; PLA: ETS 
270: SS14; ISR #FE71; ECS SS18;CFY @#00sBEQ 5515 
280CPY @HTR: JNF 5815 
LDX @#20; ISR HERBS 
5163JSR HFET1s BCS SSL6;CFY @HOO:EED 5317 
PY @#SE; BEQ SSIG 
SSI7;LDX @#10; JSK HERES 













240: SS19:LDA #DE:LDYHDE; CPV EHBIJ ECC 5526; CMF @HEGLECC SSze 
SSOLDY HEGIEMI SEL2:DEY;ENE SS21 
1: BCS SS20:LDY e#10 














374: 5s2 
8u: sz 







LDY &#20 
LPA #2000 (3 STA HIFEO, Ys INV: HNE SS25 

LDA #3108,Y:STA HEBEG ‚Ys NY; ENE SSZ4A;LDY @R1FSLDA #2 
STA (HDE) „Ys DEYs EPL S52 






ADE @#2O; STA HDE: ENE 5527; INC #DF 
420: SSL7iETS 
4401 
450 Fre 






460 CUT INE AANROEPEN Of H"LSSO'; 


47A END 
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Het programma DISKCAT wat gepubliceerd werd in Acorn Nieuws heb ik aangepast net 


de volgende mogelijkheden: 


1, een overzicht van de files per disk 

2, een snelle zoekreutine voor het vinden van files 
2. een printprogramma voor de diskkatalogi 

4, een sorteer- en printprogramma 

5, een overzicht van alle gdisktitels 

6. een programma om nieuwe files te updaten 


Op de disk staan de volgende files 


DISKCAT: het hoofdprogramma 

SETCAT : het updateprogramma 

FCAT ; het databestand (#3908 tot B6TFF) 

PCAT1 : dit programma maakt een random file van het databestand 
PCAT2 7 dit programma sorteert het databestand en print het uit 
DFCAT : zoek- en printroutine (mach. taal) ‚gebruikt door DISKCAT 
FC-SORT: sorteerroutine voor PCAT2 (machinetaal) 

PC-FILE: randam-file voor PCAT 

STARTDC: startprogramma dat de eerste keer de file FCAT maakt 


DFCAT en PC-SORT zijn files in gbjectcode, maak deze files dus eerst aan met 
behulp van respectievelijk DECTSRC en FCSOSRC 

In de programma's wordt gebruikt gemaakt van P=-CHARME, Verder heb ik om de 
verschiltende pregraama's in te laden het statement CHAIN gebruikt. Als U dit 
statement niet heeft kunt U dit vervangen door #RUN. U moet het te laden 
programma dan weìl saven met BSAVE en zorgen dat de P-CHARME-box vaorgeschakeld 
staat - met bijv, BEEP 20,30. Verder zal het duidelijk zijn dat er geheugen 
nodig is tot #6840 en voor het printprogramma PCAT zelfs tot #8000. Dit moet 
alleen als het totale databestand grater wordt dan ca. 750 files. Het grootste 
aantal files dat gesorteerd kan worden ís 1130, Het maximale aantal schijven dat 


opgeslagen kan worden is 54. 


LOREM DISKCAT 

Z2O0REM VERSIE 2 FRANS LE BLANC 
3O*NOMON 

4e. FCAT 

S@eL.DFCAT 

GOPAU. 208; A=K28A0 

7OR=O;F.N=#ILGSTOHEIFFS. #108 

BOR=R+IN/ BEN. ;8=2 

9aP.$12; 7NEL=D 





100P." DISKCAT"" 

Liep.” meenen! 1| 

128P," _ CATALOGUE - KEY 1" 
130P." _ FIND FILES - KEY 2*° 
140P." PRINT CATALOGUE — KEY 5“° 
150P." _ PRINT INDEX - KEY 4“ 
16@P.* _ PRINT TITLES = KEY 5" 
172P." SET NEW FILES — KEY 6"! 


180P.*“ _ NUMBER OF FILES: *R'' 
19BINKEYI 
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200XIF I>NSE A, 1<#37 
218ELSE BE. 20,30;G. 198 
2201F1=#523G. 318 

2530IF1=#53;6. 520 
240IFT=#34; CHAIN" PCAT1" 
258IFI=#35;G. 430 

26DIFIz#363 CHAIN"SETCAT“ 

278IN. "type disknumber “$A 
2BOIFSA=""} GOS. 255.90 

29DIF VALAD54 OR VALA<=0; P. SLI; LINKGFE22;G. 270 
302605. b;6. 90 

SIBIN, “find “$A3 IFL.A>7;P.$11; LINKWFE22;G. 310 
320IF$A="";6. 90 

530S#140=8A;P.$12" "SA" 
S4DF.N=1T054; B= (N=) 4#100+#5000 
SSOCOPY B,‚Bt#107,#2000;9=?#2105+#2008 
36@F,I=#200F TO G 5,8; ?I=#DIN. 

378t INK#2610 

SBON.;P. ‘"ready — PRESS KEY";BEEP20, 5; LINK#FFES;G. 90 
SI07E1=#B03E. 

40DaN=0; DO N=N+1 

410G0S.c 

420P, “presscontrolforstop* 
430GDS.d 

AABLINKHFFES;U.N=54 OR?#BOOL 2191} R. 
45BEN=VAL A 

468605. c;P.* ";GOS.d 
47OLINKBFFESSR, 

48OCB=(N-1) #4100+#3530 

490COPY B‚B+#197,#2002 
SODLINK#2700; PHEI=0R. 
SI@dCU,L1,B;P.* DISK "Nyk. 
SZOINPUT"BEGIN BIJ DISK: "8 
SSGINFUT"EIND BIJ DISK: "E 

S4OP, $2$27$64$27$40827$67$0412 
S5OP,$27$67$80 

S&OF.N=B TO E 

570P, DISK®N'" 

SERC= (N-1) 41084 30I0 

SIOCOPY C‚C+#197,#2000 

GOOL INKR278S:P. *° 

6ION.;P.$3 

6286, 99 

63OP,$12; 7NEL=0; P=8 

640F.N=1T054 

650C=(N-1}##120+#3000 

6&ÖCOPY C‚C+#197,#2000 
STOXIFIN2ABEII2; PN" 

6BQF, J=#2008T0#2097 

69OXIF IJKK2DiP.” * 

TOBELSE P‚$12J) 

71N. 

720F,J=#2100T0#2184 

JSOXIF 2JeR20;P.* * 

TADELSE P.$(2J) 

75BN.;P. * 

76BELSE 

TIEN. ;IF Pat;P.$3$6;G.90 

788P. "printer aan”; INKEY I 
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79BIF I=CH"I"jP=1;P.$2182$27$64;G. 640 
8005. 90 


1OPROGRAM SETCAT 
20D1MB1 

30D0 P.s12" 

40P." 

5BP."INSERT DISK"* 
&UVTABB;P. "PRESS CONTROL FOR SToP";CU. 8,5 

TUIN. "TYPE DISKNUMBEER"$B 

BAIFVALB{=B OR $B="" OR L.B>2;P. SLI; LINKHFE22; B. 70 
POA=VALB 
10BIFA>5A;P. "MAX. 54 DISK'S1“ ‘811811; LINKHFE22; 6. 70 
110LINKHE223; G=?#2105+#2008 

120FILL Q,#26FF,8 

158C=At#108+#ZEFB 

148COPY#2008,#2107 ,C 

15QU. 7#BDLL=1913P.$I2" INSERT DISK FOR SAYING FCAT"';LINKHEFES 
168EN. 

170*S.FCAT 3900 &7FF 

180P. "FILE SAVED"'""READY"" 

19BCHAIN"DISKCAT" 


SETCAT"" 





10 PROGRAM PRINTCAT-LPCAT1J 


20 P‚$12;?#E1=0 

30 P.“ PRINTCAT" 
HOP! en 

50 P. "EERST WORDT ER EEN FILE GEMAAKT"” 
&Q P."EN DAARNA GESORTEERD." ” 


70 P."IET DE PRINTER VAST AAN, ……"/” 
80 F.N=#5007 TO #67F8 5.8 
8D;N. 








180 1e 
118 F=FOUT "PC-FILE" 

128 F.N=1 TO 54 

130 B=(N-1) ##108+#5000 

140 Q=?(B+#105) :C=B+0 

158 F‚J=Bt8 TO C 5.8 

158 IF C>B+8j1l=1+1;SPUT F‚$J 
174 N.:SPUT F‚"";PUT F‚N 

188 N. 

198 SHUT F 

200 CHAIN"PCAT2" 





1GPROGRAM PRINTCAT-[PCAT2] 

201F 1>1120;P. "TEVEEL FILES {?";PAU, 150:6 420 

ZEON ERROR; IF7D=50:P. "UPITE PROTECT AAN"; PAU. 258; RUN 
BODIMTT (IT) „UU ‚V2 

sasy=" "Jel 

GOF.N=@ TO 1 

TADIMTZS TTN ET 

BAD IMU2; UU (A) = 

PEN. 

19DFeFIN"PC-FILE" 
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138D0J=J+1 
148SGETF,T; STT (JJ =$ T 

158U, $T=""} J=J-1 

160A=GETF 

178F.M=K TO J 

188?V=(A/104430) ;V?1=(AL1E+#50) 
198sUtmesv 

20ON. ;N. ; SHUTF 

210P, "HET PROGRAMMA GAAT NU SORTEREN" 
228J=Jt1 

2587480=TT8256; INBI=TT0/256 
240288417256; INB5=TTJ/256 
2507#B6=TT(J-1) 42563 IWBTETT (J-1)/256 
260*R.PC-SORT 

270P,$2: 

280P.$2827$64$27448 

290P. 427867580812 

3UOP.$14$27845$1 

SIGF.N=i TO 15;P." "iN. 

320P,"INDE 1 

330. $27845$0 
340J=J-1skel/b+1 

35ar. TO K-1 

368F, TO N+k+5 5.K 

STOLEN P.STIM" "SUR" 
SEEN. ;P. “iN. sB=4jP. 'J+1" Files": 
390P.$12$556 

AGOCHAIN"DISKCAT" 

















18 REM DFCAT SDURCE 

29 REM SOURCE 2782-2868 

ze J=50; DIMLLJ;F. T=DTOJsLUI=RFFF EN. ; DIMA4; @=0 

40 P‚$12" DFCAT SOURCE * 

50 P.''"CODE ASSEMBLEREN OP #"&#2700 

68 P=#2700; Z=P 

88 LL1=N140;LL2=452F;LL3=#2000; LL4=#2008; LLS=#200E 

70 LL&=#200F ; LL7=W20F0;LLB=#2105;LL9=#2106; LL 10=42107 
108 Luil=#210C;LLI2=#210D; Lt P2IGE;LLIJ=NZIGF LLAt=KC5EI 
110 LLA2EHEDEC; LL GI=HEOFD; LL 64 eNE1QO;LLAS=HELDIJLL4b=NELDD 
128 LL47=WF7D1GLL4BERFIFD; LLA9=HFFED; LLSO=NFFF4 

158 P.$21;F. I=1T02;P=2 

140 

150:LL8 LDA@#BC; JSRLL SO; JSRLL 49; LDKERRO; STXHBA 
16B:LL15 LDALLZ, X;CPX8#08; BCCLL 16; LDALL?,x 

170:Lt16 JSRLLSO: INX;CPX@RBD; BNELLIS 

180:LL17 LDY@NBE: JSRLL 20; BECLL 27 

198: LUIE JSRLL46; LDALLS, Y; ANDBA7F; STALL4, vs TYA 
200 BNELL18;JSRLL 49: JSRLL4; RTS 
210:LL19 JSRLL44 
228:LL20 CPYLLE; BCSLL 21; LDALL4,Y; BMILL 19 

250:LL21 RTS 

240:LL22 LDY#BB;CPYEND2; BNELL 25; JSRLL 49; LOYENFF 
250:LL25 INY;STY#B8: JSRLL32 
260: iL24 LDA@#25; LDY#B7; LDKLL6,Y; BMILL 25: LDA&H20 
270:LL25 JSRLLSE;Loxerao 
288:LL2& LDASAE,X; JSRLL5O; INK; CPXE#07; BNELL 26 
290 BEGLLI? 
300:LL27 STY#B7;LDxee00 





753 
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Zi@:LL28 LDALL4, Ys ANDER7F: STARAE, 5 INY; INK 
320 CPX@#08; BNELL2E 

350:LL29 JSRLL20; BCSLLIL;LDXERDÓ; SEC 

Zap: LLSD LDALLS, Ys SBCHAE,X; DEY; DEX; BPLLL SO 
550 ISRLL4T;LDALLÓ, Y; AND@#7F ; SBCHBS; BECLL27 
36D JSRLL44;BCSLL29 

S70:LL31 LDY#B7;LOALL4, Y; ORACHBR; STALLA, Ys LDAABS 
588 CMP#B6: BEGLL22; STAMD6; JSRLL49; LDARBS 

390 JSRLLSD;LDAEN3A; JERLL SO; LDYERDO; STYHBE 
528 BEGLL24;LDALLIS, Ys JSRLL43; STAA2: CLC 

10 LDABAFFGADCLLI1, Ys LDALLIG,Y; ADELL 12, Ys STAHAS 
420 LDALLIS,Y; ANDEHBF ; ADCHA2; STARAZ; SEC 

A3B LDALLIG, Ys SBCHAS; PHA: LDALL®, Ys ANDEROF 
540 SBCHA2; TAX; LDAEHDO; CMPRAO; PLA 

450 SBCHAi:;TXA; SBC@#OO; RTS 

abd: LL32 LDYE#02 

470:LL33 JSRLLA2; DEY; BNELL33; RTS; \ 

680 LDX@ROOGSTI#AI; STAAIAE STKH25G DEX 
490:LL34 LDYE#DO 

500:LL3S INKsCPXLLEz BEOLL AD; LDALLt, Vs CMPEHZD 
S{@ BEDLL37; CMPLL4, X$ BERLL 3E; CPY&#EA; BESLLSS 
520 DEA; IMPLLI4 

530:LL36 INY;BNELLSS 

540:LL37 TKA; ANDEEFB; PHA: TAX 

S50:LL3E LOALLA, X; CMP@HAD; BEOLL 39; JSRLLSO; INK 
560 BNELL38; TXA; PHA 

570:LL39 JSRLL47 

580); $P=" DISK "}P=P+L.P 

590 

650 LDALL2;STA#L6; JSRLL41; JSRLL4B; PLA 

&1B CLC; ADCENQ7; TAX; JMPLL 34 

620:LL48 RTS 

630IN.;P. 6" “CODE VAN "&Z" TOT "&P/'GE 


10 REM PC-SORT SOURCE 
20 REM SOURCE 2890-2871 
30 3-8; DIMLLJ;F. 1=0TOJGLLI=HEFFGN. ; DIMA43 €20 
4D P.$12“ PC-SORT SOURCE * 
50 P.''“ASSEMBLEREN OP "&#2800' * 
63 P=#2808; Z=P 
8% LLi=#88 
90 P.$21;F.1=1T02;P=1 
108 
110:LLO LDARBO; CLC; ADCERBB; STA#B2; LDAHEL 
120 ADC@#AO; STAHEI 
130:LL2 JSRLLI;LDARB2; CLC; ADCENBB; STAHB2 
140 LDA#BI; ADCEHBA; STARBI; CMPRB5; BNELL 2 
150 LDA#B2: CMP#B4; BNELL 2; LDA#80; CLC 
160 ADCERQE; STABB; LDAHGI ; ADCEROO; STAHBI 
170 CMP#87: BNELLO; LDA#88; CHP#B6; BNELLD 
188 RTS 
190:LL5 LOYEHEF 
28D:LLG INY;CPY@RD7; BEGLLE; LDA (HBD) ,Y; CMP (RB2) ‚Y 
210 BEGLL4:BCCLLS;LDYeN08 
220: LLS LDA(RBD) ,Y; STALLI, Ys INY;CPYEHDB; BNELLS 
230 LDYenog 
240:LL& LDA(#BZ) „Ys STA(HBDI ‚Ys INY;CPY@#GB; BNELL6 
258 LOYEE2G 
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260:LL7 LDALLI,Y; STA(#B2) Y; INY; CPY@#OB; BNELL7 


278:LL8 RIS 
2801;N.;P."$6°*CODE VAN "&Z" TOT PT 'jE, 





1OREM START DISKCAT CSTARTDC] 
20P.$12"WANNEER ER VOOR DE EERSTE KEER EEN FCAT GEMAAKT WORDT" 
3QP.* MOET DIT PROGRAMMA GERUND WORDEN": 

$0P,“DOE DE DISK IN DE DRIVE“ 

SOF ILL#3000, #67FF ‚a 

6OF ‚N=#500BTORG7FFS.#108 

7O!N=#20202020;N! 4=420202820 

80! (N+#108) =#20202020;N, 

POP, ‘“DRUK OP EEN TOETS"';INKEY 1 

102+S.FCAT 5008 67FF 

118P. * "KLAAR"; END 
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TOP- EN DIMPONITER AUTOMATISCH GOEDZETTEN 


10 REM TOP TG /V1\ 

20 KEN TOP EN DIM-POINTER GOEDZETTEN IN EEN PROGRRAHMA 
30 REM AUTEUR A.G. GERAETS 

40 REM NEER 

5@ REM TEL. (84759) 2012 

60 REM DATUM : 830731 

70 REM GEBRUIK: 

B2 REM — IN BEGIN PROGRAMMA LINKEN (LLO) 

90 REM — ALS STATEMENT (TOP), DAN LAATSTE RTS 

100 REM VERANDEREN IN ‘JMP&C55g: 

118 REM HANDIG BIJ AUTOSTART PROGRAMMA'S 

120 REM P (REGEL 158) VERANDEREN IN GEWENSTE ADRES 
138 DIMLLS 

140 F‚X=1T02;P.$21 

150 P=#2900 

160C:LLO LDA#12; STAGE: LDY@RB; STYRD; DEV 

17O:LLi INY;LDAC#D) „Ys CMP@#D; BNELL t 

188 JSRACDBC;LDA(#D) „Y; BMILL 2; INYs BNELL 1 

19O:LL2 INY;JSRECDBC;LDAND; STAN2I; LDAKE; STAN24; RTS 
202) 
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DE INHOUD VAN HET 
GERESERVEERDE GEHEUGEN 


Hier volgt nu een lijst van alle geheugenplaatsen welke voor de ATOM 
basicinterpreter, DOS-rom en MKONITOR-rom gereserveerd zijn. De adressen voor de 
floating=point zijn globaal weergegeven. De lijst is uitgebreider dan die in 
ATOMWARE en is samengestelt op basis van het gehele uitvlocien van bovenvermelde 


drie ROMS. 


De zero-page adressen #08 — #89 zijn gereserveerd voor de basicvinterpreter. 


8 error nummer. 
lengte instruktie in assembler programma. 
lage byte regel nummer. 
hoge byte regel nummer. 
index Y-register statement uitvoering. 
basiestack pointer. 
lage byte adres statement uitvoering. 
hoge byte adres statement uitvoering. 
teller van karakters in print reutine. 
randon getal. 
random getal. 
random getal. 
random getal. 
random getal. 
lage byte top basic programma, 
hoge byte top basic programma, 
testbyte decimaal of hexadecimaal printen. 
testbyte juiste code in assembler matrix. 
tile-handler van random acces files. 
18 lage byte adres error-handler. 
1t hage byte adres error-handier. 
12 tekst-pagina waarin basic programma start. 
15 stackpointer do-loop’s. 
14 stackpointer go-sub’s. 
15 stackpointer for-nekt's. 
16 = 22 lage byte basicstack. 
23 lage byte dimpointer. 
24 hoge byte díimpointer. 
25 - 31 een na laagste byte basic stack. 
27 testbyte voor negatief printen. 
34 — 40 een na hoogste byte basic stack. 
43 — 4F hoogste byte basic stack. 
45 - 4E printen van een waarde. 
52 -— 55 wordt gebruikt voer verschillende zaken waaronder: 
52 lage byte sprongadres zeekroutine, 
save karakter statement om met de tabel te vergelijken. 
lage byte adres naam file, 
tage byte lengte te plotten X-as. 
52 - 55 buffer voor omrekenen naar hexadecimaal. 
52 - 53 pointer om stringvariabelen en array's te vullen af te lezen. 
53 hoge byte sprongadres zoekroutine. 
hoge byte adres naam file. 


AMON WPIDNEURUN- 
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hoge byte lengte te plotten X-as. 


54 lage byte laad adres. 
lage byte lengte te plotten Y-as, 
55 hoge byte laad adres. 
lage byte lengte te plotten Y-as. 
56 lage byte executie adres = #B2. 
geeft aan of te plotten lijn X-as negatief is. 
37 hoge byte executie adres = #C2, 


save adres basic label, 
jage byte testpointer bij plotten van een lijn. 
58 lage byte start adres voor saven. 
lage byte pointer voor het opzoeken van een regelnummer, 
lage byte sprong adres bij goto of gosub, 
geeft aan of te plotten lijn Y-as negatief is. 
59 hage byte start adres voor saven. 
hoge byte pointer voor het opzoeken van een regetnummer, 
hoge byte sprong adres bij goto of gosub, 
hoge byte testpointer bij plotten van een lijn. 


5A lage byte eind-adres voor saven. 
SA lage byte plotadres X-coordinaat. 

5B hoge byte eind-adres voor saven. 

5B hoge byte plotadres X-coordinaat. 

SC lage byte plotadres Y-coordinaat, 

5. hoge byte plotadres Y-coordinaat. 

SE save Y-register op beginstatement bij interpretatie. 
6B — 7F floating point werkgebied. 

64 lage byte adresseringscode bij assembleren. 

&5 hoge byte adresseringscode bij assembleren. 

66 opcode na het assembleren. 

67 eerste operand. 

68 tweede operand. 

67 lage byte gecomprimeerde mnemonic. 

bA hage byte gecomprimeerde mnemonic. 


74 — ze floating point vijfde byte basicstack. 


De zeoro-page adressen #80 - #FF zijn gereserveerd voor het operating sytem. 


B@ - BF vrij bij Cassette Operating system. 
88 — 99 vrij bij Diskette Operating system. 


Het Diskette operating system gebruikt de zeropage van #9A t/m #FF, Aangezien er 
met de indeling van de DOS rekening is gehouden met de A48 koloms VDU kaart 
worden deze adressen hier cok bij vermeld, evenals de adressen voor de normale 


VDU routines uit monitorrom. 


DA lage byte adres naam file. 

98 hoge byte adres naam file. 

sc lage byte start adres. 

ID hoge byte start adres. 

GE lage byte executie adres, 

9E hoge byte executie adres. 

AB lage byte grvatte van de file. 
At hoge byte grootte van de file. 
A2 hoge byte plaats op schijf. 
AZ lage byte plaats op schijf, 


A5 — AB naam van de file. 
AC De qualifier iìn gebruik. 
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AD De opdrachtcode voor de controller. 

AE = B& naam file voor alphabetiseren catalog. 

B7 save catalog index #CAT 

BB test byte voor linefeed in «CAT 

B9 de filehandler bij #EXEC. 

BA de filehandler bij *SPOOL 

BB save lage byte schrijfroutine bij #SPDOL 

BC save hoge byte schrijfroutine bij #SPOOL 

BD save lage byte schrijfroutine bij #EXEC 

BE save hoge byte schrijfroutine bij #EXEC 

BF save index bij #EXEC en #SPDOL 

Ee testbyte op geopende buffers. 

Ct de te gebruiken buffer. 

£2 de te gebruiken filehandler. 

Es index naam in disk catalog. 

C4 index naam in buffer catalog. 

C5 teller. 

C6 save geheugen index. 

C7 save in gebruik zijnde drive nummer. 

CB save in gebruik zijnde qualifier. 

Ce lage byte start adres te saven of te laden sector. 
CA hoge byte start adres te laden of te saven sector. 
CB totaal aantal te saven sectoren. 

CC testbyte op meer dan 256 sectoren. 

ED de huidige qualifier. 

TE VDU bevat het aantal vrije regels. 

cf VDU lage byte adres regel in bewerking. 

De VDU hoge byte adres regel in bewerking. 

D1 VDU hoogste bit geeft aan ofscherm aan of uit staat. 
D2 VDU lage byte adres eerst volgende te beschrijven plaats. 
D3 Vo hoge byte gecorrigeerd adres eerstvolgende te beschrijven plaats. 
Dá VDU hoge byte ongecorrigeerd adres eerstvolgende te beschrijven plaats 
Ds lage byte non-request interupt adres. 

Dé hoge byte non-request interupt adres. 

DE lage byte schermregel voor cursor positie 

DF hage byte schermregel voor cursor positie. 

Eö cursor plaats op regel, 

El cursor inhoud. 

E2 lage byte sprong adres voor control code routine. 
E3 hoge byte sprong adres voor contrel code routine. 
E4 save adres X-register in schrijf routine. 

ES save adres Y-register in schrijf routine 

E6 test byte voor page mode. 

E7 test byte voor locktoets. 

E? save index inputbuffer. 

EA tage byte print pointer HED1G 

EB hoge byte print pointer #+EDI6 

EC track nummer. 

ED sector nummer. 

EE drive nummer. 

EF testbyte MON/NOMON. 

Fa aantal pogingen van de controller. 

F1 aantal te laden sectoren. 

F2 - FD laadt of schrijfroutine DOS. 

F& tage byte save adres 

F7 hoge byte save adres. 

EE karakter welke niet naar de printer wordt gezonden. 


save adres accu bij een interrupt. 
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Het Cassette Operating systen gebruikt de adressen #C0 t/m #FF. Enkele adressen 
zijn hierbij vrij. Voor alle adressen wordt een separaat een opgave gedaan voor 
het saven en het schrijven dit wordt aangegeven door een S en een L. Indien geen 
L of S wordt aangegeven, betreft het geen COS routine, maar een Operating Systen 


routine. 





CB L: byte weike is geladen. 

S: byte welke wordt gesaved. 

C1 S: bitteller. 
C2 L: hoge byte teller voor controle op juiste header. 
C3 5: save adres Y-register in put-byte routine, 

L: lage byte teller voor controle ep juiste header. 
Save adres Y-register in get-byte routine. N 
neet byte voor lengte flank-overgang. 
vergelijkings byte voor testen op flank-overgang. 
lage byte adres naan file. 
lage byte adres naam file. 
hoge byte adres naam file. 
hage byte adres naan file, 
lage byte reload adres. 
lage byte laad adres. 
hoge byte reload adres, 
hoge byte laad adres. 
lage byte executie adres. 
test byte of er een laad adres is opgegeven, 
hoge byte executie adres, 

L: ckeck-sum byte. 

CF 5: grootte file. 
D8 S: lage byte blok nummer. 

L: lage byte blok nummer. 
Di 5: hoge byte blok nummer. 

Lt: hage byte blok nummer, 
D2 8: test byte voor: 

a. eerste blok file 

b., start en eindadres onjuist. 

tc. is er nog een volgende biok. 
lage byte pointer met adres te saven blok. 
hoge byte pointer amet te saven blok. 
lage byte laad adres catalog band. 
lage byte einde file, 
hoge byte laad adrs catalog band. 
hoge byte einde file. 
lage byte executie adres catalog band, 
hege byte executieadres catalog band. 
grootte file catalog band. 
lage byte bloknummer catalog band, 
hoge byte bloknummer Catalog band. 
DB test byte catalog band. (zie cok bij #02. 
DC 5: checksum byte, 

L: checksum byte, 
DD 4: testbyte +FLOAD. 
E8 lage byte schrijt-pointer routine HFIDI, 
Er hage byte schrijf pointer routine AFTDI. 
EA testbyte voor MON/NOMON. 
EC 5: save adres X-register in put-byte routine. 
1 save adres X-register in put-byte routine. 








Dn 
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Dan volgt nu een opgave van het blok @ - RAM welke niet tot de zerao-page 
behoort. Het gebied van 8198 t/m #1FF is door de fabrikant van de 6502 
gereserveerd als microprocessor stack. De ontwerpers van de ATOM hebben deze 


stack gehalveerd ten behoeve van het input- en stringbuffer. 


108 - 13F input buffer. 
146 — 17F string buffer. 
188 — IFF micro processor stack. 
Bij de volgende vector adressen wordt zowel de inhoud voor de COS als de DOS 
gegeven. 
cos Dos oaschrijving. 

299 - 201 XXXX EB7B NMI interrupt. 
202 - 203 C9DB C9DB error handler. 
204 - 205 AG@B ABDP interrupt handler. 
206 - 247 FBEF E3ES interpreteer vector. 
209 - 209 FES2 FES2 schrijfroutine. 
20A - 20B FEI FEI leesroutine 
20C - 29D FILE E477 load file routine. 
20E - 20F FAES E&13 save file routine. 
218 - 211 C2AC EA6! lees file routine. 
212 - 213 C2AC ECAB store file routine. 
214 - 215 FBEE EAFO get byte routine. 
216 - 217 FC7C EBBC put byte routine. 
218 - 219 FC38 E953 message handler. 
2tA - 21B C278 EBIE shut file routine. 
ZIC - 23F vrij voor eigen gebruik. 
242 - 288 opslag adressen for next loops 
2B9 - 2CE opslag adressen do until Toops. 
2CF - 2EA opslag adressen gosub loops. 
2EB - 329 opstag adressen array's. 
321 - 38E opslag adressen variabelen. 
38D - 3CB opslag adressen labels. 
3C4 lage byte adres laatste plot point X-as. 
3C2 hoge byte adres laatste plot point X-as. 
3C3 lage byte adres laatste plot point Y-as. 
5C4 hoge byte adres laatste plot point Y-as. 
305 laagste byte floating-point variabele in FGET en FPUT 
3C& een na laagste byte 
307 middelste byte. 
5C8 een na hoogste byte. 
3C} hoogste byte floating-point variabele in FGET en FPUT. 
305 - 308 ficating-point voor wiskundige benaderingen. 
309 - IFE vrij voor eigen gebruik. 
sFD kleur nummer ingesteld door het COULOUR statement. 
3FE tage byte adres plot routine. 
SFF hoge byte adres plot routine. 
A adressen welke bestemd zijn voor de disk-contraller 8271. 
428 lezen :status register disk-controller. 

schrijven :commando register disk=controller. 
Aal lezen sresultaat register. 

schrijven ‘parameter register. 


AB2 schrijven 


sreset register. 


Geheugen welke gereserveerd is voor het disk operating system 


HET 
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2000 
2008 
2088 
2oar 


2018 
2128 
2185 
2186 
2107 


2188 


2708 


2800 
2887 


- 2007 
- 21FF 
- 200E 


— 20FF 
- 2104 


- 21FF 


= 21FE 
= 22FF 
= 23FF 
= 24FF 
= Z5FF 
- 26FF 
= 27E 


= 2986 
= 28bc 


eerste acht letters disk-naam. 
catalog van de file-namen. 

naam file 

Qualifer van de file 

bit 7 geeft aan of de file gelockt is. 

rest van de file-namen. 

laatste 5 letters van de disknaam. 

aantal files op schijf, 

hoge nibble de OPTION van de schijf (alleen voor de teac-drive’'s) 
lage nibble hoge byte maximale capaciteit schijf. 
lage byte capaciteit schijf. 

catalog van de adressen. 

lage byte start adres file. 

hoge byte laad adres file. 

lage byte executie adres, 

hoge byte executie adres, 

lage byte grootte file, 

hoge byte grootte file. 

hoge nibble file groter als 64K. 

lage nibble hoge byte plaats op schijf. 

lage byte plaats op schijf. 

rest adressen catatag. 

catalog van de random acces file buffers, 
file-buffer 1, 

tile-buffer 2, 

file-buffer 3. 

file-buffer 4, 

file-bufter 5, 


opslag adressen floating point variabelen. 
opslag adressen floating point arrays. 
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SCREENDUMP SOZ2.5 


10 PROGRAM SCREENDUMP NEC PC-B025BE-N 

28 REM HENK BOXMA,OKT. ‘84 

25 REM GEBRUIK GEMAAKT VAN HET ARTIKEL VAN ANDRE DE BRUIN 
27 REM ZIE A.N.DEC'83,BLZ 55 

38 REM GEBRUIKT #9A T/M #9E ECHTER ALLEEN TIJDENS DE DUMP 
48 CLS 

50 P,"SCREENDUMP OP NEC VAN CLEAR-4- SCHERM, GEBRUIK CTRL-SHIFT"" 
68 W=t6000 

78 DIM VV9,TT3 

B8 F.1=8 TO 95 VVI=WiN. 

90 F.1=0 TE 3; TTI=WiN. 

188 P.$21 

118 FOR I=t TO 2;P=W 

128 B=VVOL256;C=VV8/256 

138 L[ 

140 LDAE#40; STAHBEOB: LDAERCO; STAKBBOE ; LDAEHSO; STAHBBO4 

159 LDAEHFF;STA#BB87; STAEBSQT;LDABB; STAH204;LDAEC; STA2ZOS 
168 CLIJRTS 





178 :VVB LDARBAD4; TYA; PHA; TXAFPHA 

188 LDA#BOI;CMPA6I;\ CTRL SHIFT ? 

198 BEB VV7;JMP VVG 

208 :VV7 LDA #B880; CMPAHFO 

218 BEG VVA;JMP VV6 

228: TT8 3); 'Ps#0OLBIELE;P=P+3; SP="LOOS"; PEPHLENP; PP SLB; PoP +1 
230 $P="T12"sP=P+LENPs 2P=RLBj P=P+1j SP=" 50256"; P=P+LENP 
248 IP=#41185D1B;P=P+4; REM TABEL OP TTO 

245 

256 :VVB LDXED: STXHFA;LDAERBE; STARIB; LDAEN2; JSRHFEFD 
268 :TT1 LDA TTB,X;JSR VVI; INK; CPXERB;ECC TT! 

278 LDxe0;tLDYeR 

275 

280: VVI LDAEB; STARIC;LDYERB 

298 :TT2 LDA TT@,Y;JSR VVI INY;CPY @#11;BCC TTZ 

300 :VVS LDA @#80;STA #9D 

318 _:VV4 LDYEP;STYNIE 





328 zVV3 CLC;LDA(RTA) Vz AND#IDJ BEG VV2; SEC 
358 zVV2 ROR #9E 
340 TYA: ADC@N20; TAY; CMPESCO:BNE VVS 


550 LSR #9E;\ BIT 6 OP @ 
360 SEC:ROR W9E;\ BIT 7 OP 1 

370 __ LDA#FE:JSR VV9;\ PRINT BYTE 

380 LSR #9D;ENE VV4 

398 _ CLC:LDA#PAGADCEI; STARFA; LDARIB; ADCED; STAKIE 

480 _ CLC:LDA#IC: ADCEL; STAHIC 

G18  CMP@#2O:ENE VVS 

420 LDA@RD;JSR VV9;\ NIEUWE REGEL 

438 CLC; LDA#IA; ADCENAD: STAHTAJLDAHIE; ADCER: STARIE 

448 INX;CPXER2D;BNE VVL 

DE 

468 LOveR1! 

A70 :TT3 LDA TT@,Y;JER VVO; INY;CPY@R15; BCC TTE 

488 LDAAHT: JSRKFEFE 

AIB 2UVEEPLA5 TANG PLAS TAY 

508 PLA:RTI 

SIG sVV9 PHA:IJMP #FFOGS\EEN VERKORTE ROUTINE VOOR PRINTEROUTPUT 
5201 

538 N.:P.$& 
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548 P, "BEGIN CODE #*&u' 
550 P. “EINDE CODE #"&P' 
568 P. “PRESS KEY“;INKEY T 
578 LINK W 

588 E. 





Toelichting: Ir mode 4 wordt het geheugen: van #&200 tot #9#00 
gebruikt.Het scherm is (al of niet gevuld met puntjes:256 in de 
breedte en 192 ir: de hoogte, 

We kunnen het scherm opgebouwd denken uit 192 rijenselke rij 
bestaarde uit 256 puntjes. 

De eerste 8 purities van de bovenste rij vinden we terug in de & bits 
van het eerste byte,gerekerid vanaf #2000. 

Als het bitje een 0 is gebeurt er niets,als het bitje een 1 is,dan 
wordt eer, puntje op het scherm geplaatst.Dit is op de volgende wijte 
te demonstreren: 

CLEAR4;FOR N=#8000 TO #9800;?N=#O0F;NEXT 

Bit levert een scherm vol met vertikale balker.Elke balk is 4 puntjes 
breed. 

Sturen we de bytes,vanaf #£000, raar de printer dar: mager we 
verwachten dat er puntjes op het papier komen als de overeenkomstige 
bits 1 zijn.Om te beginner moet de printer vantevoren geattendeerd 
worden op het teit dat het byte als een serie puntjes afgedrukt moet 
worden en NIET als een letter. Boverdier moet meegedeeld worden: 
hoeveel bytes op die marter achter elkaar behandeld moeten worden. 
Het commando P#1B,'S0256" zorgt ervoor dat de NEC de eestvolgende 
25é bytes in de “DOT-mode” zal afdrukken. 

Hoewel een byte & bits bevat,zal de NEC slechts 7 bits daarvan, 
gebruikercbit0 t/m bitó.Het hoogste bit (bit?) moet £ zijn, 

terwijl we dat bit NIET als een puntje op het papier terugvinden (Een 
eigenschap vande atom) 

Verzenden we byte #FF maar de NEC dan worder er dus 7 puntjes 
geprirt.ECHTER niet horizontaal maar vertikaal,var bover naar 
bereden in de volgorde bit Obit 1senz,t/m bit 6. 

Welnuidat houdt in dat we de schermhoogte var 192 puntjes zouden 
moeten verdelen in horazontale stroken van ? bits.Aargezien 192 riet 
deelbaar is door 7,kunnen we het scherm beter verdelen in horizontale 
stroken var é puntjes, 

Sturen we nu achter elkaar 25ó bytes naar de printer en zorgen we 
ervaar dat elke byte een serie van é vertikale puntjes 

ver tegerwoordigt,dar hebben we precies zo'n horizontale strook. 
Voor elk byte maet nu dus gelder dat bit?=í ens bité=0. 











Nadat een horizontale strook is afgedrukt,moet de printkop terug naar DTR: Sheer 
, 5 2 achter elkaar #2F 


het begin van de regelen vervolgens moeten we ervoor zorgen dat de 
regelafstand gelijk is aan de hoogte van 6 vertikale puntjes. 
Daarvoor wordt het commando P.NIB'T12” gebruikt. 

De venadigde cooes voor oe printer zijn terug te vinder, in de tabel 
TT£. 


(POE woordt geregend) 


ponten byte wordt opgebouwd in H3E,Dp regel 320 wordt meb.v. 
t juiste bit uit het zojuist gelezeri byte “gepeuterd”‚In #9C 

teld hoeveel bytes reede vigelezen zijn.Âls 14IC=&IF dan zijn 
bite uitaelezensen wel in é rajen “dik”, 
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HARDWARE AANPASSINGEN 


De Acorn Atom ken m.b.v. een klein aantal onderdelen vrij 
eenvoudig op een 3-tal punten worden verbeterd of aangepast. 
Het betreft een hardware aanpassing zonder aan de hoofdprint 
in de Atom iets te moeten wijzigen. 

De aanpassingen zijn: 


1e 


1. onderdrukken van de soms irriterende sneeuwruis op het 
beeldscherm. 

2, vervangen van het videogeheugen door een 8Kx8 CMOS Ram en 
dus tevens uitbreiding van het geheugen met 2K vanaf 9800. 


3. het vrijmaken van een aantal moeilijk verkrijgbare IC's, 


die op eem endere plaats in de Atom weer gebruikt kunnen 
worden. 


Onderdrukken van de ruis. 

De ruis op het beeldscherm wordt veroorzaakt door het schrij 
ven of lezen in het videogeheugen door de CPU. 

Deze ruis is soms zeer irriterend, vooral bij het runnen van 
programma's met grepiics waarin shape tabellen voorkomen. 
Deze ruis kan men onderdrukken m.b.v. 2 IC's, nel. een 
one-shot (7465123) en een 8-bits latch (T4LS373) . 

De T4LS123 zorgt voor verlenging van de VDG-puls, zodat de 
data naar de video-generator vastgehouden wordt zodra er door 
de CPU in het videogeheugen geschreven of gelezen wordt, 

Het onderdrukken van de ruis werkt echter alleen goed als het 
videogeheugen is uitgevoerd met snellere geheugens die een 
access-tijd hebben van 200 nsec. of kleiner: 

yiermee komen we tevens op het volgende punt. 


Vervangen van het videogeheugen door een 8Kx8 CMOS Ram, 

Door het videogeheugen CE stuks 2114) te vervangen door een 
8KxB CMOS ram kan men aan de eis van punt 1 gaan voldoen, 

n.l. access-tijd kleiner dan 200 nsec. 

Dit is echter niet alles, want men krijgt gelijktijdig een 
uitbreiding van het geheugen met 2K vanaf adres 9800 t/m IFFP. 
Een andere gunstige bijkomstigheid is, dat de voedingsstroom 
ca. 0,5 amp. lager wordt. 

Bovendien kan 1C30 verwijderd worden omdat de adres-decoder 


nu overbodig wordt. 





Vrijmaken van 3 moeilijk verkrijgbare IC's. 
Voor uitbreiding van de Atom via de connectaren PL6/T moeten 


IC 2,3,4 en 5 aangebracht worden. Echter de IC's 2 én 3 
(81L535) en 1C4 (8304) zijn nogal moeilijk verkrijgbaar, maar 
zijn wel te vervangen door de TALS244 voor de B1LS95 en de 
74L5245 voor de 8304, echter met het nadeel dat de aansluitingen 
van de 1C*s niet aan elkaar gelijk zijn, zodat men op het 
hoofdpaneel wijzigingen moet aanbrengen, n.l. sporen onder- 
breken en nieuwe. verbindingen aanbrengen. 

Dit probleem kan men oplossen door 127,28 en 29 te verwijderen 
en deze te plaatsen in de voetjes voor de IC's 2,3 en 4. 

Voor 1027,28 en 29 kan men nu de TALS244 en de 7415245 gaan 
gebruiken en deze samen met de aanpassingen uit punt 1 en 2 

op een apart printje gaan monteren. 
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Praktische oplossing, 
et totale schemz voor de aanpassingen uit de punten 1,2 en 3 


ziet er uit volgens figuur 1. 
Figuur 2 laat het printje zien waarop het geheel ís gemonteerd 
(door mij op gaatjesprint gemaakt). 

De IC's 27 t/m 30 en 32 t/m 43 moeten van de hoofdprint worden 
verwijderd, zodat het uitbreidingsprintje meb.v, de aansluitpennen 
aan de bedradingszijde van het printje, verhoogd in een aantal 
van de vrijgekomen IC-voetjes geplaatst kan worden. 

De open piek op het uitbreidingsprintje kont dan boven IC31. 
De vorm van het printje als in fig. 2 is zo gekozen Lieven. de 
bereikbaarheid van andere componenten op de hoof dprint. 

Het stroomverbruik van de Atom kan nog verder beperkt worden 
door het toepassen van high-speed-cmos circuits iepev. de 
aangegeven T4LS,.. circuits. 





Met het onderstaande programma kan de werking van de ruisonder— 


drukker getest worden. 
Het programma loopt in het videogeheugen. 


10 WE1=0; REM TURN OFF CURSOR 

20 L=f3000; F=L 

30 CLDA®0; BEQ L;l $ REM MACHINE CODE LOOP 
40 CLEAR 0; REM TO CLEAR RAM ACCESSED BY VDG 
50 LINK L; REM LOOP IN SCREEN RAM 

60 END 
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STEM VOOR DE ATaom 


Alhoewel er ín diverse regiobladen äl vaker over voice-synthesizers is 
geschreven wil ik er tech in ons regioblad nog eens een paar kantjes aan wagen, 
De aanleiding hiertoe is dat ik in het bezit ben gekomen van de 
voice-synthesizer SPO256-AL2 van General Instruments, welke door de Tandy 
winkels wordt verkocht. 

Dit circuit heeft voor de hobbyist een paar interessante eigenschappen: 

1) Het is goed verkrijgbaar, en betaalbaar!! 

2) Het is eenvoudig op de ATOM aan te sluiten. 

3} Er zit een goede en uitgebreide dokumentatie bij tengets!). 

4) Alle engelse woorden kunnen worden uitgesproken. 

Er is echter ook egen nadeel: 

5) Alhoewel de spraak goed verstaanbaar is, klinkt deze erg monotoon en 
"robot-achtig". 

Bavengenoemde eigenschappen maken het Circuit tnteressant voor die hobbyisten 
die wel eens met voice-synthesizing willen experimenteren, maar hiervoor geen 
honderden guldens over hebben, 

Voor deze mede-atomisten wil ik de voorgaande punten nog eens wat verder 


uitspitten, 


ALGEMEEN 


ad. 1) 
Ket circuit wordt verkocht door de Tandy winkels onder Cat.No: 276-1784 en het 


Juiste type is: SPQ256-AL2, De prijs is f1,54,-. Pas op, er bestaat ook egen 
SPO256-017! Dit is een sprekende klok Circuit dat alleen tijd en datum kan 
uitspreken! Hieraan heb je dus niets! (Ik spreek uit ervaring!), 

Volgens de dokumentatie hoort er een kristal van 5.12MH2 bij. Dit is een 
niet-standaard waarde, dus moeilijk verkrijgbaar en duur! Heel goed gaat het 
echter ook met en z.g.n. Color-Burst kristal van 3,579MHz, Dit is ook bij Tandy 
te koop en kost ca, fl.b,-. Vaor zo'n fl.68,- heb je dus vrijwel alles, op wat 
weerstanjes condensatoren en draad na! (zie schema). 

ad. 2} 

Het circuit kan direkt op poort B van de via 6522 worden aangestoten (zie 
schema). Dit circuit moet dan wel in de Atom aanwezig zijn! Met de VIA kan ook 
de synchronisatie (handshaking) goed worden afgewerkt door de lijnen CB1 en CB2 

Het L.F.signaal over de 10K weerstand is niet erg groot, zodat een versterker 
met een gevoelige ingang nodig is (bijv. microfoon), Voor de eerste experimenten 
kan ook een kristal oortelefoontje worden aangesloten. 

De benodigde programmatuur wordt verderop besproken. 

ad. 3) 

In de verpakking bij de chip zit een boekje van 18 blz. waarin naast de 
technische gegevens ook een uiteenzetting over de wijze van spraak synthese zit, 
namelijk met z.g.n. Allophonen. Wat dit voor dingen zijn komt verderop ter 
sprake ander het hoofdstuk: "Hoe werkt het?*, Overigens komt nijn wijsheid 
allemaal uit het bovengenoemde boekje! Tevens bevat het boekje een redelijke 
hoeveelheid voorbeelden, Nadeel is wel dat alles ín het engels is geschreven, 
Duk de spraak is gebaseerd op het engels! Een aantal nederlandse klanken is niet 
aanwezig ( de G bijv.! ), 

ad, 4) 

Om dit en punt 5} toe te lichten kan ik beter meteen naar het volgende hoofdstuk 
gaan, daar gaat ie dan! 

HOE WERKT HET? 

Uitgangspunt van deze vorm van Spraak synthese is dat Spraak kan worden 
opgebouwd uit geen beperkt aantal klanken. Deze klanken hebben hiet altijd een 
direkte relatie met de geschreven tekst, en verschillen bovendien afhankelijk 
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van de plaats waarin ze in een woord voorkomen. In het woord TEST bijv. wordt de 
T in het begin anders uitgesproken als die op het eind. Ze zijn er vele regels 
die de uitspraak van een woord bepalen. Bovendien is dit vaar iedere taal 
verschillend, 
Tach blijkt het voor een taal mogelijk om met een beperkt aantal klanken ( 
allophonen ) een redelijk intelligente spraak te synthetiseren, De SP8256-AL2 
kent 59 van deze allophonen en 5 verschillende pauze lengten. Vooral deze 
laatste zijn erg belangrijk voor de verstaanbaarheid. 
Door nu deze 59 voorgeprogrammeerde klanken samen met de 5 pauzen op de juiste 
wijze achter elkaar te laten klinken, kan verstaanbare spraak warden 
gegenereerd. 
Ket voordeel is dat er relatief weinig geheugen nodig is ( ca. 19 bytes/seconde 
). De nadelen zitten in het beperkt aantal klanken. Hierdoor wordt de spraak erg 
monotoon, en de klanken zijn op een enkele taal gebaseerd. In dit geval engels 
dus! 
De verschillende allophonen worden in het boekje door lettercombinaties 
weergegeven. Een soort mnemonics dus, net als bij assembler programmeren, Even 
een voorbeeld: 
ACORN ATOM wordt in allophonen als volgt geschreven: 
EY PA3 KK3 OR NNI PA3 EH EH PA4 TT2 UK MM 
ledere lettercombinatie stelt dus een klank voor, de letters PA staan vaor de 
verschillende pauzen. Uit het feit dat er NNI en TT2 staat blijkt al dat er 
meerdere N-klanken en T-klanken zijn. 
Het boekje bevat een overzicht van de regels die bepalen welke klanken waar 
thuishoren, met voorbeeldwoorden er bij. 
In een tabeì wordt van iedere allophone het adress wat op de databus moet worden 
gezet teen getal tussen @ en 635) vermeld. 
Het selekteren van een allophone vanuit de Atom gaat erg eenvoudig: 
a) We zetten een getal tussen @ en 635 op de databus (poort B). 
b) We maken het signaal ALD (adress load} laag, en de chip 

begint te kletsen. 
c) Het signaal LR (load request) vertelt ons wanneer de chip 

nieuwe data wil zien. 
dì Indien nodig kan men aan SBY (standby) zien wanneer de chip 

is uitgepraat (wordt door mij niet gebruikt). 





DE SOFTWARE 

Achter dít verhaal zitten twee listingen: 

Een basic programma waar m.b.v het READ en DATA statement de uit te spreken 
aìlophonen als een reeks getalten tadressen) in een DATA statement kunnen worden 
geplaatst. Hierin is ook duidelijk het hele output gebeuren naar poort B te 
zien, atsmede het lezen van LRB via CBt en het IRF-register van de 6522 

De tweede Jisting is die van een nieuw P=CHARME statement, welke ik SAY heb 
genoemd. Na assembleren van dit statement en koppeling aan P-CHARME is het 
mogelijk om na SAY de gewenste allophonen in de symbolische code, zoals deze in 
de datasheet staat, in te voeren, Een soort spraakversie van het PRINT statement 
dus. 

Het uitspreken van ACORN ATOM gaat dan als volgt 

SAY EY PA3 KK3 OR NNI PA3 EK EH PA4 TT2 UM MM PA4 <CRÒ 

De spaties hebben geen betekenis en het interpreteren van de allephonen gaat 
doer tot een {;> of een <CR>. Een onbekende jetter combinatie genereert een 
foutmelding. 

Even een opmerking: een woord moet altijd met een pauze eindigen, anders blijft 
de laatste klank klinken! 

Met dit statement is het eenvoudig om de Atom hele verhalen te laten vertellen 
Mijn ervaring is wel dat je beter woord voor woord kunt proberen door ze in een 
kleín programmatje in een loop te zetten. Bijvoorbeeld: 

18 INKEY A 

20 SAY TT2 EH S5 TTI PAI 
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38 60TO 12 

OP Deze wijze is het Simpel om een woord te perfectioneren, 

Zeer belangrijk voor de uitspraak blijkt ook het op het juiste punt inlassen van 
pauzes. Het boekje geeft ook hiervoor enige richtlijnen, Van de goed geslaagde 
woorden kan men voor zichzelf een soort woordenboek aanleggen, waardoor het 
steeds eenvoudiger wordt de juiste allephonen te vinden. 





TENSLOTTE 

Wie helemaal door de spraak-koorts is gegrepen moet het drukwerk archief eens 
doorsnuffelen, In verschillende regiobladen staan namelijk ook artikelen over de 
SPD256. 

Ook een kopie van het genoemde boekje/datasheet is in het archief aanwezig. 

Met de twee niet gebruikte datalijnen (Bé en B7 zijn niet nodig voor &4 
adressen!) kan eventueel een eenvoudige volume regelíng worden gemaakt, waardoor 
sommige klanken meer nadruk kunnen krijgen. Hiermee kan het monotone karakter 
van de spraak wat verminderd worden, Helemaal mooi zau zijn als de frekwentie 
wat veranderd zou kunnen worden onder software besturing. Dan zou ook een 
vragende of bevestigende zin gemaakt kunnen worden. Maar omdat de frekwentie 
kristal gestuurd is, gaat dit niet erg eenvoudig. Mogelijk is het echter welt 
Zijn er vragen ‚op- of aanmerkingen of komt men er helemaal niet meer uit dan 
ben ik altijd bereid met raad en/ot daad terzijde te staan. Voor zover ik er 
zelf tenminste iets van begrijpt 

Succes met de kletsende Atom! 


DE LISTINGS 


18 PROGRAM TALK 158 

20 160 REM HOOFDPROGRAMMA 
58 PROC INIT 178 INIT 

408 7#208=455 188 READ D 

50 PNB8EOC=HEC 198 IF D>63:END 

68 ?8EBO2=HFF 208 OUT(D) 

70 PEND 218 GOTO 188 

8e. 220 

98 PROC OUT (A) 230 DATA 6,4 
108 #B8DO=A 240 DATA 7,16,4 
118 ?#B8GC=RCC 250 DATA 18,19,4 
120 ?#BBIC=HEC 260 DATA 20,2,8,58,11,2 
150 IF (24BB@D)&#19=0; 6. 130 270 DATA 7,7,5,13,38, 16,4 
148 PEND 288 DATA 64 


18 PROGRAM SAY.STAT va 


30 DIM S6,LL6,TT@ 
40 F‚1=0T06;LL&=A;N.; TTO=A 
50 P‚$21;P=A;GOS.a 
360S,a 





FOR N=8 TO 63 


READ $5 
SP=$S; P=P4LENP+ 13 2(P-1) FF 
NEXT 


MP1) =KEE 
ST="SAY"; T=T+LENT 
2TelL0/256: MBO; T?1=LLOA256; TI2EH00: T + 
zt A=P;TI{=A 
1 P‚ "KLAAR TOP="tP" 
1 END 
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190at 

200:LLO LDX@RFF START VALUE X POINTER 
218 STX#9B INITIALIZE ALLOPHONE COUNTER 
220:Lt1 LDY#03 LOAD CHAR, POINTER 

238 INC498 INCREMENT ALLOPHONE COUNTER 
240 DEY 

250:LL2 INY INCREMENT CHAR. POINTER 
268 LDA(#G5) „Y UNTIL CHAR. Is 
278 CMP@#ZE NOT A SPACE 

288 BESLL2 

270 DEY 

30BsLLS INK 

318 INY 

328 LDATT@,X LOAD TAB. CHAR 

538 BMILLS IF B7={: STRING RECOENIZED! 
348 CMP (#85) ‚Y_ COMPARE TABCHAR-RAMCHAR 
550 BEGLL3 IF EGUAL:NEXT CHAR 
568 DEX 

370:LL4 INK IF NOT EGUAL: 

588 LDATT@,X SEARCH NEXT 

390 BPLLL4 TABSTRING, 

409 CMP@KEE END OF TABEL? 

410 BNELLi IF NOT:NEXT TABSTRING 
420 STY#03 STORE CHAR. POINTER 

438 JMPSC3IB BACK TO BASIC 
B4G:LL5 STY#05 STORE CHAR. POINTER 
450 LDAERSS 

463 STA#20B REMDVE PRINTER 

478 LDA@HEC 

480 STA#BBBC CB2:=1 

490 LDAGHFF 

500 STA#BA@Z DDRE:=0UTPUT 

518 LDA#90 LOAD ALLOPHONE 

528 STA#B808 DUTPUT 

530 LDA@RCC 

540 STA#BBBC CH2: =d 

558 LDAEHEC 

560 STA#BBOC CB2:=î 

S7a:LL& LDA#BBGD LOAD IFR 

588 AND@#18 MASK BITS 

590 BEGLL& WAIT TILL B4=1 

628 LDAEHOD 

618 STA#BBBC RESET PCR 

628 LDA@#S2 

630 STA#208 RESTORE PRINTER 

t48 JMPLLO NEXT ALLOPKONE 

650: 119; 5 

648 RETURN 


670 DATA“PAL","PA2","PAS","PAA®, "PAST, "DY", "AY", VEH! ,"KKS" 
&88 DATATPP" "SH", NNE" PIH", *TT2" RRA, TAKT, TMNT OTTLT 
698 DATA"DHL", "IV", "EY", "DDL", "UWI", "AOT, "AA", "YY2", "AEN 
760 DATA*HHI","BB1",“TH*, "UH", "UW2", "AH", "DD2",PBG5", "VV" 
718 DATA*BE1",*BH", "ZH", "RRI" "EE", "KK2",PKKIT, "LL", NG! 
728 DATA"LL", "WI", P XR" "WH, PYYE", "CH", TERI, ER2", "OW" 
730 DATA*DH2", "SS", *NN2",“HH2", "OR" ,"AR","YR","GE2", EL" 
780 DATA" EB2" 
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IENTIEKKEN EN FRLININEN MAAR 


DIKTEE 


1OREM DIKTEE 
20P.$12;P. "DIT IS EEN DIKTEE OEFENING"; BOS, v 

30P, "DE NA TE TYPEN WOORDEN BLIJVEN 3 SEC ZICHTBAAR®* " 
48 GOS, v 

5ae=3 

68 J=8 

70 IN. "WELKE LES:"'“TYPE IN 1 2 OF 3 ""'LiLeL+96 

83 IN. "HOEVEEL OPGAVEN *'*TYPE IN GETAL TUSSEN 5 EN 18*“"Z 
90 P‚'“"“EVEN GEDULD * 

180 DIM A(40);5=0;DIM X(6) 

118 605. # 

128 IF J=Z 6,249 

138 GOS.r 

140R=0; E05. v3P.$12jP, 1" 00 

150P. “TYPE NA a"sA*#*;GO5.vsP.s1 

168 P‚ tte SS IN. SL 

178 IF$L=$A P,"GOED*" “VOLGENDE WOORD *"'‘;5=5+1;G.120 
180P, “FOUT***OPNIEUW"" “;R=R+1 

198 IF R=3 P,"HET MOET # "SA" « ZIJN“ "$605. v;G. 230 
2006. 158 

218 E‚ 

220vF.N=1T0150 3WAIT;N.N;P. ';R. 

230 P‚* _ DRUK OP EEN TOETS&"";L INK AFFES;P.$12;6.120 


240 P‚, “JE HEBT VAN DE "J*“ OPGAVEN ER *S5" GOED": 
250605, v;5=0; J=8 
260P, “WIL JE NAAR EEN ANDERE LES OF MEER OPGAVEN*: * 


278 IN."TYPE DAN #JA# ZONIET DRUK RETURN”$X 
280 IF $X="JA";G.40 

298 6.122 

3OUFREM POINT @ TO TEXT 

310 G=?18#256 

520 DO B=0+1 

330 U. ?Q=4D AND G?5=L 

348 G=G44 ;R. 

350 

S6UrREM READ NEXT ENTRY INTD A 

370 J=Jt1 

380 REM CHANGES:A,@,R 

390 R=-1 

482 DO R=R+1;A?R=G?R 

418 U. APR=CH","ORAPR=ED 

420IF A?R=#D G= 
430B=Q+R+1; APR= 
450 
450alN,UIT,OP „AF „OP „MAN, MOGELIJKHEDEN 

468 PROTESTEN, KWART, BEWOONTEN, HOEVEEL HEDEN , HONDERDDUIZEND 

470 BEDRIJVEN, HUWELIJKEN, INDIANEN , ZEELAND, HERINNER INGEN 

BOD NEDERLANDER ‚FEITEN „HOLLAND, BEWEGINGEN, LEERL INGEN, DIENSTEN 
490 DE FRIEZEN SPREKEN FRIES,BOVEN IN JE HOOFD ZITTEN HERSENEN 
500 EEN FRANSMAN SPREEKT FRANS 
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510cBLAUW, DOKTER , MORGEN , ZOLDER „FLAUW, ALLE , ALLEMAAL , GAUW, PAUS 
520 BAKKER, ANDERS, PAUW, WALVIS, ELKAAR, SAUS, WORTEL , JULLIE, MEESTER 
538 NAUW, HUISVROUW, ALLES, KELDER, CUDER, ZOUT , TANTE ‚KASTEEL „BOUW 
542 OUD, MANTEL „GULDEN, HOUT „JOU, MEESTE, ONDER „KABOUTER 

550 ZAKDOEK, ZESDE, FILM,FLES, ZIEKE, ZWAAN, FLUIT, ZOETE, ZWAAR, PRAAT 
560 FRAAI, ZONDER, ZWEET „FRIS, ZUSTER, ZWAK, ZOON, ZWARTE „FRUIT, ZAAK 


VERTAALPROGRAMMA 


1OREM VERTAAL PROG. 

20P.$12;P."DIT IS EEN VERTAAL OEFENING" 

Sap. "VERTAAL DE VOLGENDE WOORDEN OF ZINNEN: "*" 
40P."IN HET ENGELS #1#"“" 

5OP."IN HET DUITS #24"'” 

&OP, “IN HET FRANS #38"'” 





5 
80 ING "WELKE TAAL?" "TYPE IN 1 2 OF 3 "''Ljt=Lt6 
WHOEVEEL OPBAVEN "“"TYPE IN GETAL TUSSEN 5 EN 10" 
100 P.“''"EVEN GEDULD * 

118 DIM A(40);8=0; DIM X(4);DIM P(40 

120 805. f 

130608. v 

140 IF U=2 6.268 

158 GOS.r 

160R=0; P.$125P. 

170P. "VERTAAL 
180 P.'° 

198 U=U+1 

202 GOS.r;IF $A=sL P."GOEDZO"'"VOLGENDE WOORD"; S=5+1; B. 150 
210P. "FOUT HET MOET ZIJN"''$A 









228 6.130 

230 E. 

240vF.N=1T0150 }WAITEN. NEP. "3R. 

250 P.* DRUK OP EEN TOETS4" "LINK #FFES:P. #12; 6. 158 
260 P.''"JE HEBT VAN DE "U" OPGAVEN ER *5" GOED" 


270 P."JE CIJFER IS EEN ";P.10#5/U ;P. °° 

288605. vj; 5=0; U=0 

29GP. “WIL JE NAAR EEN ANDERE LES OF MEER OPGAVEN""* 
300 IN."TYPE DAN #JAx ZONIET DRUK RETURN"SX 

310 IF $X="JA";G.70 

320 6.130 

IIOFREM POINT 9 TO TEXT 

350 02718256 

358 DO 
360 U.7 
370 Q=044 ;R. 

5004 

Z9UrREN READ NEXT ENTRY INTO A 
400 J=Jt! 

ALD REM CHANGES: A,G,R 

420 R=-i 

430 DO R=R+1; APR=GIR 

448 U. APRECH", "ORAPR=ED 

ASUIF APR=&D 02043 
AABG=GtR+1: A R=HDER. 
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SS0aDEUR, DOOR HUIS, HOUSE, BOON, TREE „KAT „CAT, OUD, OLD 
490 WACHT WAIT, PAPIER PAPER 
SORDKAMER, ZIMMER, BOOM, BAUM, ZEE „MEER, HEER, SEE, TREIN, ZUG 
S1OCBANK ,FAUTEUILE „MAN , HOMME 


CIRCLES 





18 PROGRAM CIRCLES 


38 REM (C) HAMBURGERSOFT 
48 REM UIT CREATIVE GRAPHICS 


&0 PROC CIRCLES(X,Y,‚xR‚L,P) 

78 IF L=5 THEN PEND 

88 XA=0 

98 DO 

108 MOVE X,v 

118 _ XX=ZRECOSZA 

120 _ ZY=ARASINZA 

138 _ DRAW(AX4X) , (XY+Y) 

148 _ LAZZA+PI/ZR 

150 FU. XZA>=2&PI-PI/XR 

168 TFPSIS3 CIRCLES (XLR) „(Y-AR) ,CLR/2) , (L+4) ‚1D 
170 IPC; CIRCLES ((XALR) , (V-HR) ,CLR/Z) ,(L41) 2) 
188 IFPSOEGCIRCLES (XLR), (V+AR) ,(AR/2) ,(L41) „5 
190 IFPSD2; CIRCLES ((X-UR) , (YHLR) , CERA), (L41) „49 
208 PEND 


220 CLEAR4 
239 CIRCLES(128,96,48,9,0) 
240 DO;UNTIL 9 


i@ PROGRAM BOX 


3B REM (C) HAMBURGERSOFT 

4Ò REM TUMBLING BOX 

SO REM UIT CREATIVE GRAPHICS 
6Ö REM VOOR DE BBC MICRO 


90 PROC BOX(P,A) 
100 AK=UKXA3LV=ZYVA 

118 MOVE (244128), ((A/5) +96) 

120 PLOT P‚-{X,-4Y;PLOT P‚-4X,xvsPLOT PLL, LY; PLOT Poul ,-zy 
138 PLOT P‚xy‚zx 

140 PLOT P‚-XX,-2Y;PLDT P‚-4Y ‚kx; PLOT 8, rv, xx 

150 PLOT P‚-X,4Y;PLOT P‚-XY,‚-XX3PLOT B, xy nx 

169 PLOT P‚Xx,LY;PLOT P,-UY‚-HX;PLOT q, Uy iX 

178 PLOT P‚1X,-xY 

188 PEND 
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200 FDIM XXXC200) ‚XYY (200) 
218 %A=4;T=0 

228 P.$12° °°" Md PLEASE WAIT" 
238 DO 

240 LXKT=(KARZIESINZA 
252 XYYT=(LAR2) #COSLA 
268 KA=XAHO.1 

278 T=Tel 

289 UNTIL T=281 

298 

300 DO 

318 CetzXA=4jTel 

328 CLEAR 4 

350 DO 

348  BOXC1,T) 

356 _CLEAR4 

368  T=T+1 

370 UNTIL T=201 

389 UNTIL 8 


CONPOR 


18 PROGRAM CONDOR 


30 REM (C) HAMBURGERSOFT 
4d REM UIT CREATIVE GRAPHICS 
59 REM VOOR DE BBC MICRO 


78 PROC ANDES 

gg FOR J=-58 TO 20 STEP4 
99 MOVE 6,5 

189 FOR 1=8 TO 25 

118 PLOT1,18, (A.R. 20-10) 
128 NEXT Ì 

130 NEXT J 

148 PEND 


148 PROC BIRD(X,Y,A,BsV‚W‚P) 
178 K=X/5}V=V/ Sj A=A/ Sj B=B/S 
189 V=V/S;W=W/6-50 

198 MOVE(V-A), (W4B) 

208 PLOT P‚{V-X), (H+) 

218 PLOT P‚V‚l 

220 PLOT P‚(VeX), (WEY) 

234 PLOT P‚(V#A), (W+B) 

240 PEND 


240 CLEAR 4 
270 ANDES 
288 C=1;%A=0 





338 AV=640+108COS (HA/12) 
348 LW=712+LOBRSIN(XA/ 12) 
350 XX=(2H-1038)/4 

Z6B ZY=LN4COS (ZA) 
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378 XCekter.5 

388 ZBeXCHLOS(XA-. 4) 

390 BIRD(E,F,G,H,1,3,7) 

408 BIRD(ZX,XY,XC,ZB, LV, XW,5) 
418 E=XXj;F=Xy;GeXC 

420 H=%Bj I=V; J=XW 

430 UNTIL 0 





ELISE 


18 REM FUR ELISE 

28 REM J.G. VAN DEN BRANDHOF 
58 REM HUSSELSESTEEG 45 

40 REM 5881 LC PUTTEN 


58 GOS, a;PL.A'1; GOS. a; GOS. b; GOS. C560S.b; GOS, c;PL.A'2,Ra 

68 PL,C'4,R4,C'4,RA,C'4,R4,FB,A' 8,C'1,F'4.,E' 8, E'2,D'2 

7@ PL. Arad. „Ar 8, Ara) 6'4,F'6,E'4,D'4,C'4,A'#2,A'2 

BO PL‚A'#8,A'8,G8,A'B,‚A'#8,C' 1,0'4,D'#4,E° ZIE AF a,At4 

20 PL.C'1,D'4,,B'B,C'8,G'8,58, A 8,G'B,B'8,6'8,C’8,G'8 

188 PL.D’ 8,6'8,E-8,b 8,C*6,B*0,A"B,6'8 8,F'8,E'B,D'B,G'B,F'e 
118 PL.D'8,C'8,6” 8,68,A 8,6:8,B°e,6 “8,C'8,G'8,D'B,6G'8,E'8,6'8 
128 PL‚C"8,B"8,A"B,5'H,F'B,E 8,0'8,6'8,F'8,D'8,E'B,F'8,E'8,F'8 
138 DL.E'8,D'#8,E'B,B'8,E'B,D:06,E'B,B'8,E'B,D'8,E'4 ‚B'4,E'4 
148 PL_D'#4,E'2,B'4,E'4,D* #4; GOS. 2; BOS. b; GOS. c;PL.A'1. ‚R2 

158 PL,C'Wi,,D'1,E'4,F'4,Ft 1,F'2,D'#1.,D'1,C'4,A‘#4 

160 PL‚A'1,A°Z,A°2,C'2,B'2,A' Le #1. ,D'1,E'A,F'G,P'1,F'2,F 1 
170 PL.D'#1,D'4,C'4,A'#1,A’ 2,G1,GR2,A'Z,R4,B'Z,R2 

188 PL.A8,‚CA,EB,‚A” 8,C°8,E'B,D ec 8,B'8,A'8,C'8,E" ant: C“8 
198 PL.E"8,D"8,C"8 8,B"8,A"#8,A"8,G" 16, 6'8,F'#B,F'B,E'#8;G0S.a 
200 GOS.b;PL.C4,E4,A' 4,B'2,R4,D4,C'4,B'4,CH,A' 8,C ek B,C8 


218 PL.A'I.3E. 
22BaPL,E'4,D'#4,E'A,D'#4,E' 4,B'6,D'4,C'4,A'2,R4,C4,E4,A'4,B'2 
238 PL.R4,E4 „Ged, B'4,C'2,R4,E4,E'4,D'#4,E’ 4,D'NA,E'4,B'4,D'4 
248 PL.C' 4, A'2,R4,CA,E4,A'4,B'2,R4,E4,C'4 ‚B'ä;R. 
250bPL,A'2,R4,B'4,C'4,D'4 

268 PL.E'2. „04, F'4,E° 4, D'2,,F4,E'4,D'4,C'2,,E4,D'4,C° 4,B'7 
270 PL.R4, Eâ, E'4 E4,E'4,E4,E'à,D'#4,E'4 

280 PL.D'#4,E'4,D'#4,E'4,D° #4, E 4,B'4,D'4,C'4,A'2,R4 

298 PL.C4, Ea, A" 4,B'2,R4,E4, 6eâ, B'4,C'2,R4 

308 PL.E4,E'4,D° : 6 4,D'#4,E'4,B'4,D'4,C'4,A'2,RA;R. 
S1BcPL.C4,E4, a 4, 2‚Rd, E4,C'4,B'4;R. 


PAGEMODE — zZz 
18 PPOGPAM PAGEMODE-2 


20 REM J, VAN VELZEN 

40 REM CTPL-N ALTEFNATIEVE 

SO REM PAGE-MODE 

58 DIM LLIG 

70 F‚N=0TD 10 

89 LUN=-} 

98 N. 

188 P=#2508 

118 P.$21;605. a:P=#2800: 605. a:P. 44 
128 7M20B=LLDA256: WIOF=LL0/ 254 
138 €, 
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158aC 
168: 108 
178 PHP; PHA5 TXA4 PHA; TYA; PHA 
180 LDA#E& 
198 CMPEB1O 
200 BNE LLO! 
218 JSRHFD69 
220 LDA@RDI; STAHEG 
250:LLOL PLA;TAYs PLA; TAX; PLA; PLP 
240 JSRHFES2 
258 RTS 
2681 
278 RET. 
SQUARE 
18 PROGRAM SQUARE 
28 
38 PROC SGUARELA,B,C) „D,E,F‚,G 
49 XIF Goei 
5e D=A-C3E=A+C 
60 F=B-C;G=B+C 
78 MOVE D‚F 
88 DRAW D,G3DRAW E‚G 
78 DRAW E‚F;DRAU D‚F 
100 SQUARE (D‚F ‚C/2) 
118 SQUARE (D,6,C/2) 
126 SQUARE (E,G,C/2) 
150 SQUARE (E‚F ,C/2) 
148 ELSE 
158 PEND 
168 
178 DO 
188 INPUT "RADIUS" R 
198 UNTIL BCR AND R<=50 
202 
218 CLEAR4 
228 SQUARE (128,96,R} 
258 END 
pATOMIX 
18 PROGRAM DATOMIK 
20 
38 REM PROGRAMMA MADE BY 
48 REM FRENS MEPSCHEN 
SQ REM ZUIDBROEK 
63 REM 05985-2124 
7@ 
BB DIM DD(1F) ,AALT) ,ALZ 
90 FOR N= 1 TO 15 
199 READ DDN 
118 NEXT 
129 FOR N= i TO 7 
138 DIM Wi23AAN=N 
148 READ $AAN 
158 NEXT 
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178 DATA 51,28,31,30,31,30,31 
188 DATA 31,30,31,30,31,31 
198 DATA “ZONDAG", “MAANDAG " 
209 DATA "DINSDAG", "WOENSDAG" 
218 DATA "DONDERDAG", “VRIJDAG” 
228 DATA “ZATERDAG" 
238 
240 CLEARG;P.$30,$15 
250 P‚* Kdedadieihe dake 
260 P. e= # datomix « 
278 P‚* BEEREN 
288 P.*DIT PROGRAMMA BEREKENT EEN" 
290 P."OF MEERDERE VARIABELEN UIT” 
382 P, "ONDERSTAANDE REEKS. *** 
518 P,* DAG-DATUM-MAAND-JAAR"" 
328 P. "VOORWAARDE 15 DAT MINSTENS*" 
330 P. "EEN VARIABELE GEGEVEN IS," 
540 P‚*VOOR -DAG- sZONDAG T/M ZATERDAG" * 
350 P‚ "VOOR -DATUM- : 1 T/M 31" 
368 P. "VOOR -MAAND- 1 T/M 1297 
370 P,"VOOR -JAAR- : 1700 T/M 3000" 
380 LINK#FFES 
390 PROC ENTER (Vs) , 
400 P,$30;VTAB V;HTAB 7 
418 ON ERROR I=0;G. 430 
420 IN, I 
438 PEND 
440 
458 PROC JRTEST 
460 IF Je0sKeJ;lesG.c 
478 IN, "VANAF JAAR *K 
480 IF K<1708 P.$7;6,470 
490 IN. “TOT JAAR "t 
=20 IF L>3008 P.$7;G.49g 
Ste IF LCKi Hek H 
S20cPEND 
520 
540 PROC MNTEST 
550 XIF M<20 N=M;O=m 
568 ELSE N=1;Q=12 
57 PEND 
580 
590 PROC DTTEST 
62 XIF D=B E=t;F=DD(N 
610 IF N=2 AND KX4=B F=F+1 
620 ELSE E=D;F=D 
628 PEND 
648 
650 CLEAR 8:P.$50;@=2;P=0; W=D:U=0 
teg Pp‚r KREEK ERE NER" 
678 Pp, == & datomix & 
680 Pp. teennannent” 
690 P‚* DAG*" "DATUM" "MAAND" "JAAR" 
700 P.$20;VTAB 4; HTAB7; IN. SA 
718 ENTER(5,0) 
728 ENTER(&,M} 
738 ENTER(7,J} 
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748 JRTEST 

750 MNTEST 

76Q DTTEST;CLEARB;P. $58 
7708 IF $A="";GOTO 790 
788 GOTO a 

798 P=l 

BOALSA=SAA LP} 

818 P=P+1; IF P=B;P=l 
820aZ=K/ 100; Y=K- (74180) 








U 
859 Zel-1;Y=9I;OeNt12 

(2, 6814 (D-2) B. 2)+E+Y4N/ 41/4 2E1 
878 X=CXLT) AIG IFK <20 Xet7 

880 IF P<>0 6.0 

890 IF $A=$AA(X) Bo 

„aa GOTO 950 

Q1BoU=UrLj Welt1j IFW=LS WeOj LI. HFFES 
928 PU“ > CErINt KT SAAK" 

930 IF EXFjE=E+LGIF ECF+1j Ep 

940 IF NEOzN=N+1;DTTEST; IF N{D0+1;6.p 
950 IF KXL;K=K+1j MNTEST; DTTEST; Gp 
965 P. “NOG EEN BEREKENING (J/N)" 

97B IN.SA;IF $A="J";0.650 

980 IF SA="N" END 

999 P. “ALLEEN J OF N"$7$7;6.970 

1830 

1810 

1823piF P=1 GOTO b 

1852 GOTO a 

1848 END 














TUBE 


18 PROGRAM TUBE 
20 REM FRANS VAN HOESEL 


AQ PROC CIRCLE(A,B,Y),X, D,E, Foo 1e Je KoboMtoN 

58 Ke; D=J-Y-Nj H=LIjN=1jE=BeVj Fet; HA; 1285 J=B-YjKSA-Y 
&@ DO PLOT M,‚A,E;PLOT 2,0,Z;PLOT Q,H,E;PLOT R‚2,2 
78 PLOT M‚F‚B;PLOT 2,0,2;PLOT Q,K,B:PLOT R‚Z,2 

88 PLOT N,A,J;PLOT Z,0,Z: PLOT G,H,J;PLOT R‚2,2 

98 PLOT M‚F,I3PLOT 2,0,2;PLOT Q,K‚I;PLOT R‚Z,1 

108 IF D<8 D=D+44X+6; GC 

119 DaD+4& (K-Y) +103 Y=V-NJEZE-Nj FF Ng Je JeN; KektN 
128c Ke XaNg A=AEN; B=BeNj H=H-N; 1e l-N 

138 U. XY 

148 PEND 

159 

168 CLEAR4 

170 MOVEO ‚B; DRAWO, 1913 DRAW25S, 191; DRAUZSS, 0; DRAUD, B 
188 2=8;0=-1jR=F;0=7 

198 X=38; Y=50 
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208 DO T=A.R. 158 
218aDOveR. XbjWek. Zó I=Â.R, 258 
228 U.X+VD1S AND XeVC234 AND YaM>15 AND Vel 1b6b 
238 DOX=X+V; Vet il 
248 CIRCLE (X,Y,‚12} 
238 KEYKjIF KC28 INKEYK 
268 Isi 
276 U. 1<BORXC220RX>23SORY<220RYIL4S 
zes U.s 


GERCLE 


18 PROGRAM CIRCLE 
28 REN ALGORITHME BY 
38 REN J.MICHENER 


4e 

5B PROC CIRCLECA,B‚R) ‚X,Y‚D 
Ga re8sYeR 

78 De3-2eR 

Be DO PLOT 13, (ASX), (B+Y) 
CL PLOT 13, A9) , (B4X) 
sen PLOT 15, (A+Y) ‚ (B-X) 
118 PLOT 13, CA*X) ,(B-Y) 
128 PLOT 13, (A-X) ,(B-V) 
130 PLOT 13, CA-Y) , (B-X) 
148 PLOT £3,CA-Y) ,(B9X) 
158 PLOT 13, 4A-X) , (B+Y) 
168 XIF D<@ D=D+49X46 
178 ELSE DaDe4# (X-Y)+1DjV=Y-1 
1en kerel 

198 UNTIL DY 

288 PEND 

zie 

228 CLEAR4 

250 FOR R=7 TO 64 STEP 4 
248 CIRCLE(127,96,R) 

258 NEXT 

24 END 


